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Here's a collection of 49 games guaranteed to 
make you glad you invested in a Spectrum. 


Tim Hartnell, the world’s most widely published 
computer author (and recently described by 
Personal Computer World magazine as ‘Mr 
Sinclair’) has drawn on the work of some of the 
UK's most talented young programmers to bring 
together this incredible collection of explosive 
games for your Spectrum. 


The programs, many of which feature 
machine code subroutines, include: 


PROTECTOR 

WIPE-OUT 

CHOPPER SQUAD 

DODGEMS 

SNAKE 

ZOMBIES 

DOORS OF DOOM (Adventure) 
GOLD RUSH 

SPACE TREK 

3-D MAZE (with full graphics) 


Don’t wast a minute longer reading the back of 
this book in the shop. Buy it now, and rush home, 
and start your Spectrum exploding. 
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FOREWORD 


Books as solid as this one don't just spring out of the 
Spectrum without a serious investment of time and 
effort. 


And there has been plenty of both time and effort spent 
making sure this collection of games for your 
Spectrum is as good as we could make it. 


Drawing on the work of some of the UK's best young 
computer programmers, |'ve brought together a series 
of major programs for the Spectrum which deserve 
the label ‘software quality. The major contributors 
were Malcolm Young, David Perry, Graham Charlton 
and Neil Pellinacci, whose work forms the bulk of this 
book. 


Others | contracted to produce programs for this 
collection include Scott Vincent, Raymond Blake, Neal 
Cavalier-Smith, Paul Toland, Andrew Sweetland, Martin 
Jones, Graham White, Tim Rogers, Damian Steele, 
Neville Predebon and Michael Briggs. They also 
deserve congratulations for the quality and ‘play- 
ability’ of the programs they've contributed. 


Time to start your Spectrum exploding. 


Tim Hartnell, 
London, 1983. 
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Protector 


No need now to spend your money in the 
arcade. PROTECTOR gives you the chance to 
save the world (or at Least a few cities) 
as this sample run shows: 


¥ x MSCGRE = 1aes 

ra eC # i Ne x ¥ *s, *s 
fi . 

re Pai ‘. Ne of 

fi sf / os . 
ee A ae 

A & F 

5 F 

ns 


Your controls are "M", "Q", "A", "QO" and 
"P", Time to start protecting... 


18 RE RUN WITH CAPS LOCK 
2@ CLs 
F 


F 
INK @; PAPEF 


? 
PRINT AT &,10; 
ROTECTOR" 


68 
43 FLASH 4a; "P 


69 LET SC=e 
9@ LET HS=08 
A@@ RESTORE 


Soa Geome ne 36@ PRINT AT L(B,1),L16,29; "9" 

P ; : M6: © ae : pat 2 sels 

Ls BRD: FORDER SE Ee 370 LET Li=@: LET L2=6 

33e LET a=" Bah": REM G SBC 360 IF INKEY$="" THEN GO TO O50 

149 LET R$=9 ® , waar 

166 Cer Us +" aa GEM. BEBE 122? IF INKEYS$="M" THEN GO TO @5 

a3 ='"' eek = = : 

Sa Poe ees Bee BEM & ae e8e (40@ IF INKEY$="@" THEN LET Lin- 
198 FoR Yee TO? 410 IF INKEY#="A" THEN LET Li=1 
2@@Q READ A 420 IF INKEY$="0" THEN LET L2=- 
230 DIM Z#(6,5,43: : = 2)- 440 PRINT AT A1,Ae; = 2 
DIM Nt4a5): CIM Metis) NAA 450 LET Al=A1i+Li: LET A2=Retle 
242 DATA “A",28,20,25,25,29, 20 36@ IF A1l<i_THEN LET Si=2 _ 

60,126,"B",16,16,56,.56,56,56.56. 47@ IF A1l>i7_THEN LET Al=i7 
124,°C",126,186,136'192,142, 454° 480 IF AB THEN LET A2=30 

224 ,240,°D",7,7,15,15,51,65,53,6 49@ IF _AB>3@ THEN LET, AB=2 _ 
2/55 254,254,254, 855,555,255, 35 328? PRINT AT AL,RE; "Si": GG TO SB 

: 2 ” ad oss = rae SS = 2 ad 3 _ a 
2;3551255/"G" 540546 Sen Sen Se S10 PRINT INK 2;AT A1-1.A2-1; "6 
og Ph g2Ss ,255, °N 46,485,468 aa3°3 Be gy At A215 ES AT Ai+1,Aa- 
29,126,126,134 tO, SEE : 

2o8 DATA “X",12 S65 S20 FOR y=1 TO G: IF ABS (Lty,i 
= 420, "8", 199/1be/ 156-6666 72478 )~A1)>2 OR ABS (Ltv¥,2)-ABisl THE 
4,24, °\",138,64,32,16,5,.4,2,1,"7 1 GO TO 9540 
“'1,2,4,8,16,352,64,126 590 GO TO es7a 

e6e@ FO GB=1 TO &: LET £$(6&.i3 =9 S46 NEXT WY a 77 9 = to See, GS cans te 
=. wo 23 (Oo y,yos Hea: 2 hee tat eat: Ge wal = ee we x | = akg 
2P7e CLS Ai1l,.Re-1; SAT BR14+2,A2-1; 

36@Q LET V=1G: LET Dev: Ley Hai: ne ah Gh, Hn Base 

1=6: & ; 6a Si S S 3 Es 
Sed Ce ee ae S78 LET LY, 23 1 (Da) LET LY 2 
29Q@ FOR B=1 TA WV LET Lt«s. it =iN SLL ID S37 EK = : i = 
T (RND¢H3}: LET L(6,2)=INT tRND#S3 ty} =x$(D)I: LET D=D-1: LET SC=5C+4+ 
 giB) etiee 1256 5S 0NtB) 72). NEX +260 BEEP .15,16 
: > 2 = el tf: *23 Fa 4 =o . 
+ 5° Bo SUB o950 . S9@ IF D>@ THEN GO TO @546 

3 7 B=BF1: I : ~ 
S=1 eR TE ET 620 CLS: PRINT AT S/S; FLASH 3 

32@ PRINT AT G,20; i GP Set :"¥OUR SCORE IS “";SC: 

7? 5 SC SOs SR st SRE S32 LET W=e: FOR x=1 TO :-6: IF 2 
pee er ea Sy Sst) 1G, 275 XE Te S(X,2) ¢sE$ THEN LET Wa+2 

4.3 2 (6,43 - LET = ht xT XxX og 
Qi=LiB,S)4N(B): IF Lite 2)host Tue G20 TF uso THEN GO TO GS5e - 
NAGE £16, 2) = See PRINT AT 10,0;: FOR X=i 7 
a2¢@ IF C(B,2)<@ THEN LET Lt6,2) 4. PRINT 6T 10.4% (X-1) 7 RSE AT 14a 
4: ? 4x (K-13 j, U8: 

$5@ IF SCREENS (L ¢ (Ba: B7a LET T=Wxi@@: PRINT _AT 14, fU 
$e te THEN co a arte’ 13 gh. zB. S33 <« 1 #4; a0 oe BONUS Chel pats LET SC =5C04T 

4 
5 


Sa GO SUB c27e 
usis Sone ter Geiee VeVel: IF S20 Cet ee Poze it. 1) +28 (2,2) 
288 LET D=U; GO TO Bese at hee | 1+" “429 (4,3) 429(5,1) + 
- L(B,1)<16 THEN GO To o56 a30°LET @ +z (2 
72@ IF SCREENS (L . ) S20 Ee 235 
2" THEN GO -a asses te ee : 5S e) 
Soe SE Sea BR 94@ RETURN 
sao cP 272 SNe 2e8 THEW Ler es 95@ PRINT AT 19,.@; INK 4;04£i TO 
TA Beas < 2B:I=Es: GO Lt aNe 3s OE tS EO 2%2 2 ZMK 4; 09% 
75e@ F . 3;@8119 TO 3@1; 
258 If Z>5 AND _Z¢1@ THEN LET Zs INK 4;9%i31 TO 333° "INK 3; 98195 
T4 @S40 Z$(2,2)5E$: GA ee 46); INK 4;04#(47 TO _S@); INK 
(289, IF 299, AND Zci4 THEN LET Zs goatee Sages ee kaw Ss” oes 
Pt TAR : LET Z28(3,2)=Es: GO Q7@ PRINT AT_20,13; “LEVEL “:H 
i Cet eats .AND Z<22 THEN LET Z 360 FOR F=1 TO 380: HEXT F: CLS 
$td.i)= {4,2)=E8: & 
$‘ta*g5a0 Z$id,2)=ES: G s9@ RETURN 
78Q IF Z>21 AND _Z «26 THEN LET Z 
$i5,13=" LET ZS(S,2)=E8: G 
5 TQ 93546 
798 IF 2>25 AND == «32 THEN LET Z 
$(S.13= Z$(6,2)=ES$: G 
soe LET LB, pi) =L (D2 Se AS, GEARS oe 
>I =! th Dr- ir “(rays LET LIB, Sif ie HST 
(5) =X$ 6D) : LET D=D—4 ged yA ra yn 
S$1@ IF Db>@ THEN GO TG 225e ve My Bon Ie NS 
S20 IF W=@ THEN GO TE Bese Wo. de : / hf q 
339 GO TO 9609 *¥ ¥ Y wwe 
340 BEEF .15,2: GO SUB 932a: GO 
SUB 93950: GO TO 8669 
250 CLS : FLASH 1: FOR X=i T0 2 
>: PRINT eee ae eee ee esse Seeseee= 
sSsssS Sse": NEXT ™: PRINT AT 18 
12; "GAME OVER": FLASH © 
2590 PRINT ae 


S7@ FLASH @: IF SC» =HS THEN PRI 
“FP UWELL DONE YOU HAVE THE NEW H 


Ie 
‘ ': LET HS=SC: INPUT “ENTER ¥ 


ouUR NaME “ONS 

": PRINT PAPER 2: INK 
7:Ng;"° HAS THE > 
*336 PRINT : PRINT FLASH 2; "PRES 


= O PLAY _ AGAIN” 
“ae IF INKEY $<? "5" THEN BEEP ©. 


3,3: 60 TO = 15) 


Hi-Rize 


From Paul Toland comes this’ exciting 
arcede game, which involves jumping 
through many screens of Lines with moving 
Gaps. There are five screen variations to 
be played through, and you can see them 
all in these screen printouts: 


HI-RIZE 


SCREEN 1 


ee. OS CRE = 


HE-REISE 


FEN 2 


SCR 
ta on, red dats 
int 


Aa 


ECTESH Bid 4YGLU 
& 6Y going aver 


“ 

Oo Froena 
reg ay 
cy in 


ak ak 5 dad 5 2 fd dead dad 


HE-RIAE 


SCREEN 3&3 


SS you move up the screen the 
Lines bELOW UoU VWaNRISH, SQ You 
WiLL Lose a LiFe LF YOU Fatt. 


? 


EO 6 eS EE eee 


HAI-RIZAE 


SCREEN 4 


: 


ee SO SCREENS = 


10 


AI-RILZE 


SCREEN 5 


t e ee 


. 


And here's the Listing for HI-RIZE: 


2 REM HI-RIZE © P. TOLAND 
B68 GO SUB S898: GO SUB 25828 
Ss@ LET moet =TOT#1: LET UN=UNG2: 


288 FOR I=s=H TO L: PRINT AT Ts#e- 


athe 2) Cone 244; LEFT W=Hirt, 23+ 
(I,2): IF N<@ OR NGI THEN LET 
=INT {(RND+.S); LET HitI,2) =A-th= 
1: LET N=tHtl, 2y =-1) #31 

1i@ PRINT AT Te2- LN Ss. ee A 
-T,1)3=N: NEXT I 


320 PRINT AT ¥,X;" I 
t¥+a,xX) =" THEN LET 3S 
PRINT AT 21,8; 5C; CHRS 

P .1,-2@: LET’ ysys2: LET 
LET T=@: IF £<1@ THEN LET faa 
: IF G»2 THEN GO _ TO 3088 
4R@ LET T=T421: IF FSUN THEN LEF 
G=145: BEEP .as,3a 
340 IF C=+146 THEN GO To 41s5 
145 LET “Té- INKEYS: IF Igs<3"1i" ¥ 

HEN GO To i5@ 
i46 IF SCREENS (Y-1,X) ="" THEN 

SEEP 195,60: LET C=#146: LET T=@: 

ea Ta 16@ 

447 IF Y¥<¢2@ THEN LET L=L-1: 

i.¢1@ AND G>2 THEN PRINT AT Ge, "2 

148 LET SC=SC+1@x6: PRINT AT 21 
a) CHRS_ 144: BEEP ,@6,20@: LET 

: Le x 


IGS 


=F x=x Rees $335 fxise) 3a2 
a4 IF * SCREENS (¥4i,X¥) =" “ THEN 


- 120 
Ss LET N=ATTR (¥,*%): IF N=58 F 
ET SC=SC+1 06: rgceel -@S,8: 
AT 21: pad FFE CHRS 14 

aes, N=48 OR =Si THEN Gao Tro 


— oe 2 s +7 4 vr 2a 
ar wew toveeis han Res D 


i 
=> PRINT INK @;AT ¥-*%;CHRS C: 
2.6 THEN LET G=G41: BEURa RE 2 


rd 
scp aatmyss<O 2 


On 
wht OFT 
ee 
ar 


ul 


tet 


ZN: Ee : . 
A476 PRINT AT BY,.BX:; ": LET Bx= 
BR+D: LET posh teh eW8) eOa= (BX = 
22 #32: LET AS=SCREENS [By+1,8xX}: 

TF SCREENS (BYd1, Bx-Di=" “ OR r=) 
g§=" “ THEN LET BY=BY+2: LET C=-H 
iBY/24+1,2): IF BY>11_ OR Bee THE 
LET BY=G8: LET BxX=16: LE D=-HI{ 


i765 LET NsATTR (BY,BX): IF N=4e 


HEN GO TO 31 
FY IF Ne=s1 THEN LET D=-D: LET 


477 
Bx=-=BxX+PD 

KSBXSRINT INK @;AT BY, BX; CHRS 2 
aa 

jas IF G=2 AND ¥<2@ THEN PRINT 
THR OAT 20.0;N5 

ise Go TO 10a 


{2 


3OQ@ FOR I=L2#2 TO 2@: PRINT AT I 
,X: CHR 1246;AT I-1,%;," “: BEEP . 
3,3@-I: NEXT I 


3i0 BEEP 2&,-10: LET M=N-1: IF_M 
=8 THEN INPUT “ TRY AGAIN ?°;AHS 
: GQ Ta 1+ (AS="N"'1 299984 (AS="N") 
439963 


SSeQ LET G=G-1+(G=1) 
33a Go Ta 36 
S0@ RESTORE 8@@: LET TH="": et 


T=1 TO 63: READ N: LET THe=TsiC 
Re (N+128): NEXT _ I 

518 PATA @,14,13,.8,7,11,0@,12.,8, 
11.6,@,7,12;0,3,3,11,80,11,3,.8,18 
so @.5.16,0,9,8,18,9,0,5,18,8,8, 
67-4,@,11,3,6,160,5,@,13,14,0,8,0, 
16,6,0,13,14,@,13,12,12,@,14,12 
B2a@ LET Ts=" “4T&C TQ 22) +" 

“4Ts (23 TO 422+" 
4T$ (43 TO } 

3a@ RESTORE ge@a@: FOR I=e To Ss 
READ N: POKE USR "A’4+I.N: NEXT 
SQ LET N=@: CIN BS(aei: RANDOM 
THE : LET TaTs@: LET UN=S: LET S 
C=: LET M=4: LET Gei: RETURN 

21@ PATA 255,255,255,8,8,8,8,8 
_#11_DATA 60 ,231,189,165,153,66, 
31i2> DATA 195,165,129,189,189,18 
9,331,224 

S135 DATRH 24,182,102,153,155,182 
»-i92,22 

S14 DATA @,0,24,68,60,24,24,08,8 
47t DATA 16,16, is, S6,56, 56,284, 
a 
sues DATR 24,24,680,255,60,24,24, 
@2ea LET Nea": LET Lge’": FOR I 
=1 TS 3: Ey NG pea Pe Eich 149: LE 
No Eee a suEN ao. & 

2S = Sia GO SuB assa 
240 LET HW=2: LET L=i@: LET T=i8e 
a _LET K=L6: LET Yse2e: LET. csidS 

S@ INK 12: PAPER G&G: BORDER &: © 


r 
HUT ++ 


60 LET 6xX=16: LET ByY=e8 
BFA IF Gril THEN FOR T=1 TO oe: 
PRINT INK 2; AT INT (tRND#1@) +2,RN 
DeS1;CHRS 148: NEXT I 
SS@Q IF G34 THEN FOR T=e2 TO 12 5S 
TEP 2: PRINT AT 1,15; INK 3; CHRS 
as@: NEXT I 


igi 


13 


ere 


Zh“ 
NAST AQHOS 
+ 


0 
vs) 
m 
m 
Zz 


~QO F 
i De 4LADURHeHIT 


Ui ts} 


“fs DA 


FOR I= 
:CHRS 14 
2308 RETU 
@1Q CATA, 


Fatl.at, = 
@e@ PAPER 1: INK #7: Set te AP i: © 
INPUT ;: PRINT AT _18,€@, "Do 

want SAS SOGS CASS pet 


LET Tso INKEY S$: PRINT AT _ @.8 
K I;Ts: Ig="" THEN LET I= 


3 a Sie 
ET PS=H"N": IF Ig¢="¥" OR Is 


my oz 


xIb 
4qrPMR-MOxON 


»@,1¢,1¢,14¢,12,31, i 


Beata. we 
OR es 


CO) Oe eH ee 


sila 
169 9 QBUCEMG-GCe eCTONHG) 2900 86:51 ZOU 


£4) i 


LET I=@: INK 7: PAPER 21: Ct 
BORDER 1: INPUT ;: PRINT_AT 
- INK &; "SCREEN “;G: GO SUS 
+2508 
ET I= INKEYS: PRINT AT @,@ 


inmcm wos i= 


UDB 1 FP TAY bed 
Sas 


i TS: ir i= 


am ha 


TU + 
HM: 


i] 


ud 
hore ea Te « 


rm 


“Iu TDM 
He mene IM 


ZO AZ WZ Rel hen Kh ZT)’ 
ene AO eel 


pe eo RD eee 
3900 “ 


maa 


KEY VACM poe OK WW Cra TEAR pope 
JonDp Jay 


COM ee 
ef ODODMTIn 
help 


Py 
TF CreaTsomow 
“CerOOUMe 
fe 20rd 
in 
—€ mn Mm 
ee wsryg 


3 
:TmanT 
Zenogwa 7 
e.0e + - CNOWO AD 


Teme 
WDA TH 
m wis 


col -OMEeErco HUHE 
me 


s4eeTOOII ess 


In 


4 
D 
+ 
3) 
Ns 
a 
a 
orn 
ery DO 


rao Zi 
HOD H &H 
“AMIDES 
emi m 


a ms D 
onTeVo Feoererces 


WMH tbe 

Koapet Hajef egies a 

epcm3 yD 

TOMO Ma 

MIJeonT CTF - 
be 


Oo 


izsne.'': RETURN 

250G PRINT AT 6,@; "As you more UYU 
P the screen the Lines below 
“OU Vanish, sa ae tA lese 28 
taFe GF you Fat ETURN 

2SO0 PRINT AT 1@, a: Things speed 
Pe aA bit From hom an.": RETUR 
N 

SQ@Qaa PRINT AT 18,8; "Spikes appes 
r at the top oF the screen and 
their touch is Ltethat.”’: RFR 
ETURN 

Scea RETURN 

3599 INK @: PAPER 7: BORDER 7 


Wipe-Out 


No collection of computer games would be 
complete without a '‘'city bomber' type 
program. This is a much stronger version 
of the game than many I've seen, and 
provides a real challenge to the player. 
Here it is in action (at the end of as 
run): 


The scenario is familiar. You are in a 
space ship which is coming down. You do 
not have any means of ascending, so must 
blast a Landing strip for yourself by 
dropping bombs on the buildings. Use the 
"H" key to release your bombs. 


1@ PRPER @: BORDER ©: CLS 

2e ORT &,0.8,63,255.9.2,.0,1,.35 
7. 255,255,63,252,.28,8,9,0,0,255 
,255,255,255,255,76,255,255,102, 
255,255 9 @,64.,.71,116,39,129,2 


o =e FOR. €eldi Te Ate: FORM: =e fF 
42 RESO =: FORE USR CHRS ctn.ix 
S& NEST NEXT 
Ge LEFT be=6 
7@ PRINT AT 8.5; ZINK 5S: “s#sWNiIP 

E-OUT#s##- HH to drap bomb. 

WGiPEe the tity off the earth 

With H-bambs to Give yourse 

tf & Landifg strip.";AT 15,8; BR 

ZGHT 13; INK S; “DIFFICULTY 7(1 Te 

ey Ss  ZNPUT_B: LET Barb 

SQ FPRPER @: CLS EGORDER @ 
S@ LET s=-2 

3832 FOR 3=5 To £5 

A210 INK A2¢INT (RND#7)3: PRPER i+ 
Z2NT (RND#?72: LET g=324INT {RND#¥2 
} 

2202 PRINT ATF &@.2; PRPER ©; "a": 
FOR b=9272 FTO 223 PRINT AT . eo 
ees. . OIE a> 

4138 NEXT & 

24a2 FOR a=i Ta =i 

25@ PAPER ©: INK 1+INT (RNB?) 

16G@i LET bep=fsi-si1 

178 FOR b=25 TO 2 STEP -2 
Lee PRINT AT 3.6; ''—itt': BEEP .@ 

too FoR .t-a To = 

SOK LEFF SH=SHE SH (INKEY S="h' 3 4+ (5S H=k 
i>: GQ SUB 3S2ea 

2le NET : 

SES IF SOREENS f2.b-2B3 ¢> THE 
hr Go To 458 

230 PRINT AT S,.5:" 

242 NEMT fb PRINT AT 2,1 

250 HEMT = 

260 CATA 4,4,4,& 

S7C@ RESTORE 250; FOR a=1 TO a; 
RERD x BEEP .325si1l+aefs=43) x: 
HMEST = 

250 PRINT AT 21.0; FLASH 12; INK 

S> FPRPER ©: “SCORE: ";) be: “standby 

For tSskKe-oFfF’ FPRUSE Stora) 

eae PAPER @: FOR s=29 TO @ STEP 

S@@Q FRINT AT 3s4+32,871;5" “SAT 6 
S&S; INK 21+tINT tiRNDS6) : t=" 

3S1iQ NENT =: GO Ta F 

S20 IF 2=21 THEN RETURN : IF se 
2 THEN LET e€=241 

S@ FF s=3 THEN LET 2€=34+2-f(32=28 


1) 
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*' EEP -@@6,21-€: LET 2=e+1 
Sa IF SCREENS (@,h) ¢> " THEN 
Geo Tro 3 


38 
Se8@ IF e€¢21 THEN RETURN : IF @>+ 
21 THEN LET €=21: Go TO 499 

SSQ LET be =be+10 

4@@ IF €>21 THEN LET €=21 


420 PRINT AT @.h; ENK nA; "RE": BE 
EP. .@2,.Nn-i2 

436 NEXT 7 

44@ LET s=<2: LET d=d#2: RETURN 


45@ PRINT AT 3,e-2:" # 

460 CATA 2,0.3,-5.-5.,.-5.90 

47@ RESTORE 450: INK 2 

498@ FOR n=i@ TO 9@ STEP 1@: PLO 
T pS, (22-83) #6: ORAYV 26.N: NEXT 
"49@ PRINT AT 11.36; PAPER 6; IN 
~ 2; "SCORE: ; be 


=i6 GO sus 418: GO TO 510 


Birds 


Written by Neil Pellinacci, this is an 
arcade-type game, in which you have to 
defend your planet from the Lines of alien 
birdmen above. 


Once by one the aliens swoop down on you, 
dropping Large white crates in the process 
The crates are used as bombs, but Later in 
the game, the crates can smother your 
planet, completely covering it. If this 
happens, the game ends, no matter how many 
Lives you have Left. The crates have a 
third role, but you'll have to play the 
game to discover what it is. 


You control your Laser base using the "Zz" 
au noyo, wiih wii SPpate ney LU lit. 
You score 50 points for each swooping 
birdman you hit. If you hit a birdman on 
the bottom row, you get just 25 points. 
However, a birdman hit here will not be 
killed, but merely stunned, and will soon 
return. 


You start with three Laser bases and Lose 
one each time it is hit by a birdman or a 
crate, The number of bases is shown on the 
top row of the screen, together with your 
score fon the left) and the current high 
score. You gain an extra base when you've 
destroyed three attack waves, 


At this point, you'll meet mutant aliens, 
These swoop, but may then rise, dropping 
more crates. 


To give you something to aim at, you might 
Like to know that the best score that Neil 
has achieved — and only after a great deal 
of practice — is 12,000. 


The program is written entirely in BASIC 
with the exception of a single machine 
code routine Located at 32500. Here is a 
disassembled Listing of the code: 


32500 LD HL. FO4a 
S250 LO DPE , 22525 
S250Q6 LD BC .S2 


vovicn jee — ieee 
S2513 cP 126 
32515 UR = ,vs25S 


L 
32519 L.O A. 


Hy 

$2521 UR NZ.325239 
S2523 LD HL .23265 
32526 LD 6.32 
S2528 LO RA. THL3 
32529 cP 126 
S253i JR NZ, 352536 
S2538S BEC HL 
$2534 DUNZ S2526 
SEB536 i5 c.8 
S2538 RET 
S2539 Lb tHLi ,.7e 
S2541 ADD HL.BC 
32542 LD tHL} . 226 
32544 of S25i7 

20 


a OO 


And here is the key to the user-defined 
graphics: 


AB = “™” 
= = wR 
SFG = pe vs 
HIG = 
KL = 


After you have the program working, you 
may wish to relocate the code. If you do, 
remember to check Lines 90, 317, 412 and 
7020. The subroutine Locates the position 
of each crate and moves it down one 
position. It also checks to see if the 
planet is completely covered by crates. 
The result of this test is detected on 
return to BASIC by Line 317. 


You should type the program in, and then 
Save it. before trvingn ton rin in in eace 
you've made a mistake with the machine 
code. It is also advisable to save the 
program so that it starts automatically on 
Loading. 


i@ RANDONHIZE : GO Ta 3 

2@ PRINT RAT @.6-LEN STtRS Ss IN 
K S:5: RETURN 

Ge LEFT BC=BC+t(INKEYS="X*" AND B 
Ct2Fi -—LTINKEY S="“2" AND BC>03: PRI 
NT AT 21.560; PAPER &; INK 6: sé 


35 IF INKEY#<3>*“ “ THEN RETURN 
48 Go TO Sz2s 


7Q@ NEXT YY: NEXT X: LET WF=1: R 
ETURN 


Sa F .X=2G TO F4 INT (RH #283 
TEP -1- “PRINT AT x*.8C+5. PSPER 
au BEEP .9301.4&2-X: PRINT AT 
X.BC+2: PAPER @;" “: NEXT X: PRI 

NT AT X.BC+2: INK 6: PAPER F:; 
: RETURN 

9G CLEAR 3243939 

95 BORDER &: PRPER &: CiS : 60 
RDER 


& 
19@ EINK 4: GRIGHT 2: PRINT AT © 
»26; INK 5; “Goeoacs”" 
1@5 GG SUB FOHOG: GCG SUE S50 
1@7 LET HS=¢ ans 
141@ GO SUB S@@@: LET BC=is: LET 
S=@: LET L&=S: LET BU=o 


20@ CIM Lt(S.i163: DIN Cis.18; 
2905 FSR 6-9 TOS 2 

21909 FOR A=-@ Te ¢ 

220 LET Lt&@s+2? .AsiisBeSti: LEFT & 
a eee ee 


235 NEXT 5 siete. 
237 PRINT AT @,@; INK _S; “sacsag 
‘;AF @,47;L6 


2S5@ FOR A=2 +o 3 39: PRINT AT LIB 
: NEXT A 


2 
P 
a 
x 
‘ai 


2S0@ FOR K=1 TG INT t(RND+*£25+433 
368 LET B=INTF (RNDsSi2}: LEF A= 
INT iRNDseiO+i3 

S@S IF L(6.8i=-i THEN GO TO Sis 
51@ PRINT AT LI(6.A? .CiB, ARs ee. eile 
: BEEP .@1.-18: PRINT AT L{B.ARI, 
Cts. AIS “RR: BEEP .92.5 

312 Le RND>.6& THEN IF ATTR ize. 
BC+2} =126 THEN GO SUB 568 

SiS IF INKEY&<3"" THEN GCG SUB 3 


= 
Sif EF NOT USR SS5E8 THEN SO TO 
4288 


318 If ATITR fei. BOti3 =ise OR AT 
TR (23. BC#2}=i26 GR ATTR i21,.60+ 
33 =126 THEN GS TG 2866 

3208 NEXT & 


3308 iF BGH;+26 THEN GO SUB S&S: IF 

WF=8@ THEN GO TO 485 

S4Q EF WF=1 THEN SO TS 2885 
3 


4@@ LET LS=INT (RNDsS4+33: LEF C 
S=INT (RNDS264+2) 

4@2 teT Lislit2.623: LET €2=0 6 
2,cC2) 


404 iF Li=-i THEN GG FQ 40S 

405 PRINT AT L1,€3; es 

4@6 LET CD=fiNT tRNDeS-—i3 

41@ PRINT AT L1,€2; OVER 3; “aR” 
: BEEF .@G61. Litse: PRINT GUER i: 
AT LS 04> "a 

421 iF RND>.& THEN IF Lise THEN 
PRINT AT L4712,C2i; INK &; PAPER 


“ais LET 22=U5R Se5eE8: IF INKEY § 
¢3"" FHEN GO SUB =a: _iF HF=2 THE 
N LET HF=8: 860 TS 2 

413 if _ ATTR {23, BO +1) =126 GR AT 
TR (232,B8C+2)?=126 GR ATTR (23.5C+ 
3) =126 THEN ©O To 216228 

415 LET Ci=Citte: IF f3=S2 THEN 


LET Ci=& 
2 THEN LET €3=32 


416 iF Ci=- 
41G =F RND>.S5 THEN LET CO=INT 


(RNOD#3-1) 

_419 IF WHU>=S THEN iF RND>.6 THE 
4208 LET ees “EF £22382 THEN 
GO Tea 424i¢e 
425 if Ci=60+1i GR €32=8E+5 THEN 

LET &FFra=i: Go Tre 18sec 
436 PRINT AT LtLS.CS? .c ita.) ; 
ae 2 SO TO 236 
520 PLOT BSCS5+26.6: DREW INK S. 


PAPER ©.@,128: PLOT GVER 21,5085 
+20 ,8: PRAY SUER i.8.125 

53@ IF 6C+2=C1l OR BO+I=Ci THEN 
Go TCO £16 

Sdea iF ge fS.Bo+S} <> sen 


EN PRINT AT 5,6C+1; Ler Ss= 

5+25: co susp 4a 

6@AQ RETURN 

616 PRINT AT Li,O2; INK Fs UES 
WY L2.fi3s* Lér G2=-2: “Ler 7i 
=-—1: SEEP .95.-30: LET LitiS.c33 = 


WZ; LE S= $258: GO SUS 28 
sone LET HF=1: LET BSH=5H+1: RETU 


19608 REM BANS 


Z3i08 FGR Wei TO 4: FOR #£=2 Fo ie 

> BEEP .@15.58-2: PRINT Ar 21,6C 
INK RNDST: Sgists ** NEAT = 

1@20 FOR Lip ace i STEP one SEE 


2@3€8@ LET LB= ee 1: PRINT. AT &.127:; 
INK S:LEe& 

1@¢4@ I LE=@G@ THEN G& TG is6&ea 
1@adS fF BFF=2 THEN LET BFF=8: Go 
To 324355 

2eS@ 60 TO 42:5 

2@5@ PRINT ST &@.,27: EINK 32: FPSPER 
25 -PLASt 2G LS 

1g7@ FOR X=2 TO 28: PRINT AY X.8 


“2 NENT -2 
4880 SEEP .2.3508: BEEF .S5.58 
41@8Q FOR X=i TO F: PRINT AY x+?, 
S&S: INK N;" GRHE OVER 
GAME GCVER “: NEXT X 
14100 SEEP .2£,.5@: BEEP .=5.9 
A278 TF SHS THEN LET HE=5 


4260 PRINT 8Y @8,S2-LEN STR HS: 
INK S:HS 

129@ IF S=HS THEN FOR ==i TG 53: 
FOR X=2B@ TO -2@ STEP -S: BEEF .6 


_——ee se 


> NEXT X a 
i3@5_ FOR X=© TO 26: SEEF .©85.3: 


i318 FOR X=i TO 3E8: NEST X. SOR 
: BORDER &: PRINT RT 
@®,26; INK 5; "Seeses" AT &S.32-LEN 
STR$ HS; INK S5S;HS: SO TO 216 
ST OP 


2QQGQ REN WRULE GVER 
PEL@ FOR X=i TO £8: PRINT AT X,9 


“;, NEXT X a x 
2920 FOR X=2 TG 7: PRINT AT BS*eXt 
sats ek “et: ATTACK UAVE DESTR 
CYEG" 
2030 REXT xX 
2OSaeQ PARUSE 1596: Geer 


=,.52: FOR 
=-36 TO SS: BEEF .@4.xX: 


Ha ace = 


+ 


": NEXT X 


2E6SB LET YWWaNHt1: ITF Y=S THEN & 


ORDER 6&: PRPER G: CLS : BSECRDER & 
: PRINT AT &©.26; INK 5; “SSe860": 
AT @,32-LEN aeLRe HS; INK SHS: 5 
EEP 1.2.18: EEP .2,-i8: LET LB=iL 


2BerTe Go TCA ifs 

S@Q@S6G REN TETLE PRGE 

S@l@ RESTGRE 358e 

S@2Q REAP X: IF X=99S2 THEN GO TS 
& 


S@4@ REAC YY: PLOT X.¥ 
3SQ5@ READ X: IF x=-$99 THEN GO T 
GQ 3628 

Ssse READ *¥: DRAW X.Y: 66 


o 
S31@@ PRINT AF 128. 4; INK S:°S NEZ 
L PELLINACCT 21983" = as 
321@ PRINT_AT 15,7; INK 2 

2.8m ON Te oe S* 


§ 
343@ PRINT AT 25.2: INK 6: “Ze... 
motets eee ee tees ee sLEPT™ 
31i3@ PRINT GF iF 1B: INK 6G:"xK.... 
PEA AS ee Sh aie 
3146 PRINT AT 1952; INK 6: "“<SPAC 
BE Mivc.a. steve carat ama a talen, aie eee 
Bee pea AT 21:5; INK 3; PAPER 
a?i PRESS ANY KEY To PLA oe 
DRAW 53.2: PLOT 175.78: DRA >> 
;@: DRAW O.-S5: DRAV’_45.6: PLOT 
2,2: DRA’ ST.S 
165 INK 2: PLOT 8.55: DRAU 255, 


= : 
a BDRAY @.16: DRAY -S55.8: GRRL 


a 
S280 FOR X=S8 TSG -S8 sTeP -i: BE 
EP .O1.X%: BEEP .92.-X: NENT X: P 


S2i@ FOR X=i TO 23: PRINT AT X.G 


S500 DATA 35.119 ,8,56,38.,-14, -3e6 
, 14,28, —i4., —28, ~24 ; —-332 

4510 DATA 56.115.8, g°ee-229 

352@ DATA 106, 116, .26&,.38,.-i8a,-S5 

S.-i4.39. -25.-999° 

BSSS@ SATA 152.,.116.9,56.38,-25 

8, -25.-99¢9 
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» 216.38, 25, -36.¢,39 


S36 DATR 999 


aver REM LANDED 


oe BEEP .2,3: BEEP .15.-i: BEE 


EN GO Ta 4955 ee 
4a5@ PRINT AT BOVE EOS? 


INT Ar At). ¥3.,.622 
406@Q NEXT YY: NEX 


aa 
x 


aeo5 FOR A=1 TO 5S 


410@ FOR Z=i TO iS STEP 2: PRINT 
AT 2.8: INK RNDSStis” | = 6 
RES HAVE LANDED : BEEP .@ 


1,242: NEXT = 


E 4” 

veee RESTORE 058: FOR R=1i FO 46 
RERO 6B: POKE S2eag9tA.&: NEXT A 

FESR CATA 3S. 79>,.2.27.8,88. 2.32. 


9,229.25. 45,136,254. 226. 49.52 
7@aQ PATA 225.435.124.151. 32.242 
F@S@Q SATA SS. 2253.90.68. 32,226,254 


~126,.32.5.45.,216,2485,24.6 

ga50 CATA 2Bei.S4,78,.3,54,.126 
27 

SQ0@ RETURN 

9@90@ FOR C=G6 TS 5: 
USR “ANC 


ri 
fi 
i 


381@ OATA i 2,213 .26,7-1,2.2, 2 
S920 DATA 3.142,588, 2547335754 .,64 
Sase@ DATA @.2.2.7, 25,114.196,98 
394@ DATA 0,128,64,224,152.76,35 
$@5@ CATA @.2.9,8,4,24,31.255 


B2E6@ DATA &.58.25.25,52.127,255,2 
SO7@ DATA @8.6.0,.98,26,.56,.252 5 
geese DATA Gi2'a's’ 16° es 
SOSQ DATA 5,8.42.125545.282,54,2 
55 

9180 DATA 9,.32.8.125,.35,156.6.25 
9110 DATA 129,72.2.15.i58.58.64,2 


We'LL now have a Look at what each part of 
the program does: 


10: this skips over the following 
subroutines, which are at the 
beginning for maximum speed 


20: subroutine to print score 


30: this moves the laser base. If the 
space key is pressed, control is sent 
to Line 520 


50: this is the beginning of a 
subroutine which is called when only a 
few birds are Left. It locates the 
first Living birdman, and selects it 
to swoop down. If there are no birds 
left, WF is set to 1 to tell the main 
Loop what has happened 


BO: an ‘additional hazard' subroutine 


$0: makes room for the machine code 
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110: game initialisation 

120 - 160: wave initialisation 
200 — 235: sets up the birds 
240 —- 255: display birds 


290 — 320: makes a few birds flap at 
random 


317: checks for a whole Line of 
crates; also scrolls them down 


318: checks for a collision between 
the base and a crate 


330: selects next bird without using 
the random selection routine, see 
subroutine 50 


340: checks for end of wave 


400 - 404: selects a bird at random, 
and sees if it exists 


410 — 420: the main Loop 
411: drops 4 crate 


41S: if abird is a mutant, it may 
move upward 


520: fire routine 


610 — 620: exploding bird 
1000 — 1050: base hit routine 
1060 - 1310: game over routine 


2000 — 2070: "attack wave over! 
routine 


2060: start of mutant waves 

3000 — 3210: title page routine 

3500 — 3700: data for title page 

4000 - 4300: this routine is called 
when the planet has been completely 
covered by crates; it causes the 
birdmen to change color and slowly 
land 

7020: POKEs the machine code 

7030 — 7060: data for machine code 
9000: sets up UDG characters 


9010 - 9120: data for graphics 
characters 


Finally, here is a List of the main 
variables used in the program: 


HS — high score 
BC — base position 
S — score 
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bases left 
VW — wave number 
hit flag {1 — yes, 0 — no) 
WF - wave over flag (1 - yes, 0 — no) 
L(3,10), C(3,10) — positions of the 30 
birdmen 
BH — number of birdmen hit 
L1,C1 — position of swooping birdman 
CD — horizontal direction of birdman 


oO 
| 


= 
mn 
| 


As with most programs in this book, there 
are many things which can be chenged to 
suit your own needs. For instance, the 
random numbers can be changed, thus 
changing the probability of various events 
taking place (for example, Lines 411 and 
419). The screen displays can also be 
changed at various stages. 
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Chopper Squad 


Action is the name of this game from 
Malcolm Young. You are in charge of a 
rescue helicopter flying above the desert. 


You have to save as many soldiers as you 
can before you run out of fuel. You can 
either pick up a soldier by Landing on him 
for 50 points, or for a faster and easier 
pickup, use the helicopter skyhook by 
pressing "1" when you are exactly two 
spaces above the man. This will get you 25 
points. 


You can also use the skyhook for clearing 
trees. However, in doing so you reduce the 
helicopter's cover, This cover is 
imnnortant as it helns shiela va Fram tho 
people who come along in jeeps from time 
to time to shoot at you. They can only 
shoot straight up, and you can destroy the 
jeeps by simply dropping bombs on them. 

Hardly seems fair, does it, You can only 
bomb them while in the sky, and you do so 
by pressing '1" again. (The program will 
know whether you want the bomb or the 
skyhook, which is why '"1" is use to 
trigger both.) 


After you pick up a man, the ambulance 
turns black and you can then gain a bonus 
of 100 points if you can get the man _ to 
the black ambulance. 
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To add to the things you have to keep 
track of in this pronram, you'LL see (from 
time to time) a fuei <*uck somewhere along 
the bottom of the screen. If you manage to 
bomb this, you'Ll gain 20 fuel units as 
well as 10 points. 


CHOPPER SQUAD ends when you either run out 
of fuel or when your Lives have all been 
used up. There is a 'hall of fame! at the 
end of the program, which you can easily 
extend to five places. 


= GO SUB S5a 


Paoee ee ie fort Be 


ag 
p =e 

SB DIN s#tS.1@): DIM ACS) 

RA LET tr=@: LET sf=@: LET aps 
@: LET =¢=@: LET pk=0: LET lives 
RIGHT @- CLS ? 

54 LET jf=@: LET tn=19@: LET f 
MES EORDER 6: PAPER 5: INK @: © 
Ls : 3 = pics An. , 

13a ET H}s='e LET rea 

Fase "RAR: LET js="mit LET $= 


217] 


ig@ FOR g=11 TO 21: PRINT PAPER 
5: "dhe 


> NESE 

ASR FAR t=2 TA Bi: 7 oaSeR oS: Let 
© =INT ce ee PRINT INK 2;AT i 
popati" he INK 4;AT 15-r.ti "BR": 
NEXT 

460 tet G=INT (RND#10; +1: LET x 
=INT TRND #30) : LET s=1 " 
i7Q@ PRINT PAPER 6;AT 11.8-1;" 

> INK B-LEPpK; AT 11.a8:28 

ivS LET Fuel=fuel—-i: PRINT PAPE 
R @; INK ?3 BRIGHT L;AF 8,0; “FUE 
oe aoe "SAY B@,1; “SCOREHS"LS6 
2AT 1 2@: “) TUES=" ;tlives 
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17S IF fuet<®8 THEN Go TG i19a@a 
15@ LET a=a+0.5 AND t4ar:3B@s: IF 
NOT a THEN LET ptk=a 

198 PRINT OUER @; 


D 
4 
Das 
%¢ 


3332 IF y=21 AND x+2=8 THEN LET 
S¢=Sc+5@: LET pk=@: BEEP .5.-5 
2@@ LET y= =Y+ (INKEY #="6") —-LINKEY 
Sale7"y 2 LET x=x+(INney sa") -1 Ts 
Sak SF aes 

=as y< THEN LET x= ’ 
$278") - CINKEV§="5") T NEM F+EINKE 
= y=utt i= 29): x 
=e 3 0% 28) te saet © {uoe32): LET x 
#208 LET c=ATTR ty,x) IF {> 
AND ci2¢8& THEN GO To 1e8ea ESRee 
230 LET c=ATTR (y,x423 IF ceca 
® AND Ci+46 THEN GG TO 1999 

_£¢@ PRINT OVER UWIBT Y.%i hs: BEE 
B_.1,-19: PRINT OVER 1: aT Y-xXiTs 
pats Fe RND<.3 AND NOT pk THEN © 
“246 IF sf THEN GO sUB 428 

250 IF RND<.S5S THEN LET Thea 
25282 GO TO Vf#¥tn+17a 

SFQ LET ju=164INT (RND#4) 323 

BESO LET in=i50 

Daow ‘eT an | a tA —-rftitias Sy ~ 
fjd<.5) 

3sO@ LET Q$=PS AND Jd=i: LET qQk&= 
S#+ti% AND jd=-1): IF AND? 333 ng 
HEN LET tr=1 

Sas IF tr=i THEN LET gS=(tsle2 Ff 
om 9 AND Seat tsi TO =) AND jd= 
—i) 

S1i@ LET jx=3@ AND Jd=-i | 

329 BRIN? INK @B;AT $4.85") 

32S PRINT INK ASAT J¥.dx3 9 

BR@ LET jx=Jixt+Jd 

B40 IF jx=@ GR Jix=S1 THEN LET [t 
m=10@: LET tc=@: LET jf=@: PRINT 
FRBPER &;AT Jy,®@;' 

a Ta 4176 


SS@Q IF ysi@ AND INKEY #="2" THEN 
GO Ta 516 

SEQ IF tr=1 OR NOT tix+=INT x-1 
AND jx<=x+4+1) THEN GO TO 179 


S7@ LET e#=u+i: Sans f=ju-i Ta e 
STE -1: LET b=AT Cf.aN +4}. IF 
b=d40 GR b=45 THEN PRINT PAPER 8 

INK B23 AT. Fy dR eRs s BEEP «2, 

asad INK @;AT F,Gx41;" “: REx 
=S9 wet INK) @S AT F5axk%4t27" © 
S3a IF jix¢+1= x43 GR gkx¢+i=xX! AND 
Fou THEN BEEP 4,-S: 60 TO 18086 
4@3 GO TO s&78 

43@ REN Transport sotdier 

222 LET sdx=INT (RNDF5Q03 +2 Ler 
SBav=12+INT (RNGSS!): LET dp=i8 
LET t=INT (RND#2@) +410 

430@ PRINT INK 21:A8T Sdu.sdx;"¥": 
SEEP .15,.6 

4#4@ LET t=t-3: PRINT AT S99 439% 
3" —" 5 * £F NOT -t “THEN LET a f=2: Le 
¥ dp=@: RETURN 

45@ 1 yY=sdu AND x¢1=sdx THEN L 
Sl Hedley gatas BEEP 4&£,5: LET sf =@: 
LET dp=@: LET pk=i: RETURN 


46@ IF INKEY#<:"i" THEN RETURN 
472 PRINT AT Us. X42; ° *£i£'’SAT Yse 


#123 
‘asa IF sdu=yu+2 ANDO sdx=x4i THEN 
FOR m=u+2 TO uw STEP -i: PRINT A 


T M@s,X7t25 "¥": BEEP .3,08: PRINT AT 
MWoeMSD SS *s BEST m- JET eras, re 
F Sr=@: Lel aP=4: LET sc=5C725 
ik 2 PRINT AT uti. X+#1i"% “SAT ye? 
i+ 

SQ RETURN 

_S1@ LET e=ju: FOR fey4+1i TO ee: 
EY b&=ATTR (fx +23: EF b=4 GR b= 
46 THEN PRINT PAPER 6&3 INK 2:AT 
FNHtas “F'; R @: BEEP .3,3@-f: 
PRINT INK @;AT F.x433" “: NEMT £ 
. SG Ta S356 

S26 PRINT INK @: AT f.x4;5°* “ 
S3@ IF b=49 THEN BEEP 3726: LET 
SCSsSt+i@: LET fue l=fuetse@e(tr= 
Zz}: PRINT AT Ss 23° “8 LET % 
x#=@: GO TO 3465 . 
S48 GO TQ 176 

S6a REM 

S?7@Q RESTARE 

S6@Q DATA “a*,4.,.14,41,255,255,1395, 
239,24 

SS@ DATA “b".325,.224,6.63,65,i195 
-2129.,.24 
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BRO DATA “c",.128,.126,125,255,25 
= "9$s_219.24 

&1@ PATA “d",48,32,10,252,252,1 
25,219,248 : 
"620 DATA “ev,@,16,124,.254,255,14 
27,236,126 

536 DATA “Ff".@,0,192.299,255,.12. 
2 a 

540 DATA “9",255.8,9,9.6,0,-,8,@8 
BSa DATA tbe 3228) G,9,E,8,8.8 
S68 DATA :* 446 °97,571255,.255. 
295,219,254. 

ara BATA “ 2P55,239,199,259,25 
oP eee aie. oe 

650 SATA “K",16,16,16,16,16,16., 
34,565 

69@ DATA “L",158,.73,.116,186, 114 
32,83,1i78 

= hg ei Da “im = 2,36 a aS. ea 2 15 S is, 156 32 
25,16 — 
5212 DATA "n",153,90,758.56,5,.28, 
“333 DATA “o”,231,.126,.24,24,69,2 
26,60,24 

730 GATA "p”",126,255.255,.255.25 
=.1968,98.2 

&Fa FoR c=+H1 TO 16: READ cs 


FoR e=8 TO 7: READ np: POKE 
: 7 : new < 


es 


se NEXT OS 

Sa5 RETU 

4Q@Q PRINT INK 2; FLASH i: AT Y-«& 
ook jaint INK; FLASH @; PAPER 
SAT uLxs' LET yY=INT tRND¥2 
S341: LET X=INT  {RND#S2) 

322 2} TT Liaves=itzrz~ves- e “ 
tees SE egalei THEN PRINT FLASH 
3; °OQUT OF FUEL!.I‘M AFRAID THIS 
34 THE END": GO TO 1046 

Tas@a IF lives THEN GO TO_176_ 
40a IF scechtsi THEN Go Te 1260 
38358 INPUT “PLease enter your ns 
me far the score table sng 

$96@ FOR c=S TO 2 STEP -1: BEEP 
eigr: SIF seshtrs TREN NEXT 1 
4@7@ FOR g=5 TO r+2 STEP -i: BEE 
© 11,9: LET hKigi=nhig-13: LET si 
33 =S%(9-21: NEXT 9g 


3@8@Q LET 4Atgi=sc: LET Seri ee 
iMS@ BORDER 1: PAPER 2: INK FF: & 
FIGHT 12: Cus 

LTiia@ PRINT INK S;AT 3.2. "TOBAYS 
CHSBNPIANS ARE-" 

7329 FOR a=1 TO S: BEEP 2S: a: PR 
INT INK @:3: AT Yea, GBrsktais" “Ghats 
3+; NEXT a 

Aes PRINT FLASH 1: PAPER 4; INK 
Pt By pO 16, 3; °BG YOQU WANT TQ PLAY 


sha 

253328 IF INKEYS="n" OR INKEY S="N"™ 
THEN GO TO 1246 

3S2>@ IF INKEYS="" THEN GO TSO i221 
S 

4230 GO TQ 

izd@ BORDER #7 PAPER 7: INK @: & 
RIG 8: 
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Snake 


Written by David Perry, SNAKE is a game 
demanding a steady eye and concentration. 


The object of the game is to lead your 
snake sround a garden — surrounded by an 
electric fence — while getting the snake 
to eat mushrooms. Each mushroom makes the 
snake grow longer, and you must make sure 
you do not hit the snake's tail...or the 
Game will end. 


Here's what it looks Like in action: 


ae = == 
= ‘ae == a 
2 = = = — —_ 
z e : z S_ = 
—— os = —- = = BSS 
SCGRE - 2S +0 SARS TARTS SCUAaS. SS? 


sreigsr livid des 


INVA t Ry a Ly yi 
x Adiuitulyliuiuyuntaaddytyuldauliduuuyuiyt 


SeR Grune Un weciecCUt ut Ed SSSR debitess ciehdt Dy tetirice acd thay 
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And here's the Listing for SNAKE: 


20 GO SUB 218 

25 REN #x##5teri Asssisy 

3@ LEFF I=: IFIMIERSES 2: SRICHT 
@: FLASH @: SCADA B@: FPHRFER wu: ft 


+2 PRint * == & F&F FE £E 
Se Fein: " B BH 2 BSE 


E 

a? RT Bs 8s = Ss 
ao 7? for — ee oe z=: 
go? BctNT EE Fe 2 BSS & 
ae an NT B= 52 =z 28 
106 Prin; - === #@ ze =e 
A4@ PRIN? RAY id.aittise £euet 2,2 
-TaP For vpe,down. PRINF ~ iert 
and Fright. fCaech Lis Be yeu’. PRIN 
"~ @8t = (Het eioci the EHSBKRE Wi 


r 
Lt“: PRINT “ grow tonger.": PRIN 
T ° SE CAREFUL NOT Ta BUMP INTO" 

i2@ PRINT “ YOUR GUN BODY OR TR 
& FENCE! i * 

13@ PRIN? : PRINT INK 3:° 

eStats SSeS 

146 PRIN? i i8-.56; INS I; “ENTER 
LEVE: OF PLAY” 


2S8_PRINT AF 22.1313; INK Iv]: "(2 
25S REM 24##iInpurt Lcevet 
36@ LET GS=INKEYS: IF AS="" THE 


N LEF 3F=3¥43: EF F327 FHEN LEFF i=8 
L7G IF Re<7°3*° OR B22°S" THEN GG 


286 LET L=VAt 9s 


2@Q5 REN #2#2U'ser gor Fined Chrs 
2iS FOR 8=3 FEO S 


2S@ DATA “A“,188,418F,3295,155,15 
3,195,182,162 

290 BATA! ‘BY, @,68,13G.,153.24.24 
388 DATR “C",3@,36,189,192,192, 
_31@ DATA “B".8@,34,34,85,.85,65.1 


S20@ DATR “E",. 26,.96,25,5,26,96.2 


48S REM xsxxS5creen set up 

416 PRINT AT @.@; ENR 3:°" INE 
>; "i5SCoR @>"*>; INK 32: “Akos XINK 

=; “SNAKE” ; THIS. S.5 SANS ENR AE 

= * ANG HS< i190); “HRIT-SCOReE SHS? CS 

* BND HS site. 

4265 OR W=1 FTO 268 

430 PRINT RT N,@; INK 1; "*3 


44@ NEXT WN 
452 PR SIT FE 22,8, IHR 1; “ee 


UBB LE HHE=Hs+ “AB soins N 

No PRINT SRIGHY 1; INK 2:AT 16 
52a NEXT N 

S36 GO SUB GES 

S48 LET Ps=-iINKEY = 

S45 REM ##eKEU smePUt : 


@ IF 64=" OR EPs=‘4" OF bS=" 
x" @R Bsi"z* FHEMN ist 223-82 
See LET eae ee and cement a 
S7YO@ LET Y=¥Y+tiBse= *} -tBe=‘:i"} 


S8@ IF x=21 CR X= & THEN CO Toa & 
Saa IF yY=32 OR Y=8 THEN GO FO 6 
TF SIYIR (%.¥i¥ —3eS OR Mee OC 


ee 
R Y=32 THEN GO TO ese 
618 CO Sup 758 
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626 LET cCe=sTR 
erst IF “M<4@ THEN LET cB= #57TR 
S40 LET Pe=STRS ¥ 

3°o? IF ¥<i® THEN LET DS=" “4STR 
660 LET Xi=VAL ASt TO 2} 

678 LET Y1i=UAL ASi3S To 4} 

638 IF ATTR (*®2,Y1143:1i22 THEN G 
a Ta FeaG 

59@ PRINT AT KXi.,¥Yi:i" “ 

695 REM #4¢4Frint Sree 
v7. PRINT BRIGHT 4; INK 2;AT xX 
Fa@ Ler as-= =2E20S+ 


mts 
“140 


Sia IF S$2=8 Ter 


Fo@ LET 8=A- thse) 

748 GO TO 548 

f7o@ LET M=ATTR ik, ¥ 

768 IF .i>68 THEN RETURN 
778 LET R=RFL 


FQ LEFF sef=st4eL 

7S2@ FRINT AY B.8; IM 3:° <SCeRE 
2°55; “> INK A “A8> "> TNR SS: °°SN 
ARE": INK 2: isk's INK 2 “2HI-Sca 
RE: "HS; to" sa” HSeaea? 5 
Bea PRINS FPREER Fi Ise 4:iSSF INT 
IRNDX3G3 +2, iNT ANOGSSS3 +2; ‘Ft 
Sie FOR n=5e8 Fo -2 SYrEP -i8: B&B 


B38 4 KR=K4-(H=P2k+ix=-i3 
G4@ LET Y=¥Y-iyY=323+iy=-1} 
65@ FOR F=5a TO -28 STEP -5 BE 


EP .@2,F: NEXT F 

B55 REN #£22£&rd OF geme 

B6@ IF st+HS THEN LET H5=5sC 
378 PRINT AY 19,18; “HIGH SCORE: 
_ 288 PRINT RAT 12.14; "Press a key 


“S98 LET r=8 
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Dodgems 


This fast-moving action game is by Raymond 
Blake. You steer your car around a track 
with four Lanes, passing over flags to 
gain points. At the same time, you are 
trying to avoid the suicidal car 
controlled by the computer, which travels 
in the opposite direction to you, trying 
to spoil your fun. 


You can change Lanes in the four gaps in 
the track, and you can change tracks as 
many times as you Like. The suicide car 
can also change Llanes, but it is Limited 
to moving a single Lane at a time. Despite 
this, you'll find this a very difficult 
game. 


Near the start of a run, you'll gain 
points for red flags, which turn yellow as 
you pass over them. When you've run out of 
red flags for you just feel Like a change) 
passing over the magenta flag will allow 
you to gsin points from yellow flags, but 
will also allow your Kamikaze opponent a 
chance to catch up! 


Another magenta flag will appear in 
another part of the track, and passing 
over it will once again change the color 
of the flags which allow you to gain 
points. 


2@ FOR i=: Ta S&S: REARS 
J=8 TOS FY: READ_=: PORE U 


FOR 
= Stu 
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SG iff Ras 
ay = 
3S LET c=8: LEY cice LEFF si=8 
a8 BORCER _ GS: SSPER & ENK FF: B 
4 = 


S@ PRINT ™ sees BSSHCHGHHHHHSESEESHH 
Serra setsseiestaestsest ~ 

PRINT “S8"; INK 2: ° 

3444 TAIFTTIESTITGS PRR RE EERE! 


_. 28 PRINT “SSS INK 220322 ENS 
Lie SRR BS cist HHUA | 
INK ae © ERK Pome ie 


75 PRINT “se; as 


7; "8": INK 3; * : 
S9949 455 ink S44g3tgta3, 7 


vs "R™"S INK 25 oe NR F: “HESSERH 


SS "SES. ENE EES OSS RAR OE RS 
5. 8S..PRINT SES p; Ink S.°9 os suk 
ae; INK 2: ° 9" 5 zfs eas s INK 
“es TINK aw PEST ESTTT: SRK 
i 2 NN 5 tiv Fy 5 Siw 


= Te asa 
cig RBNRRRSSSEE: 3 aie 
Ps 3-5. ” SK :* 
= 
< 


1is PRINT <> an = 
9 Ras 


120 PRINT “S88#": INK 2:* * 
> INK F:"s +“: she a; 


425 PRINT “RS; ENR & 
. rt = + 


1 ;#§“5 ENR 
as ‘> INK SB: °9"%; ZINK FsTHo: INK 
Bi“q*; INK 7; V5 zuK Bors > 2M 
KF ‘HESERSESHSARS TS EMR Si *9"3 
ZMK = 5 


PRINT “88": ink #3 ae Ts F £ 


ane INK 3°": ZINK BSB: “¢"; EINK F 


“158, oe ne? > ZAK 
- “H . > gis - iw = 


» , dK 
"a: S44q95559- S4499094~ 
een oF sae: OENK Five: EINK 
a yrgh. TONK ar sho 
160 PRINT SSac INK 23 “ENS 2K 
3°"; INK SB; ae INK YF; “HRAHHHERS 
aH SESEHSE AS ">; ZNR 2. °°"; INK 


Fi 3 A 3 
S9N999"5 INK F of q z 
NK oF; 7H 


brie NRT TEE a agen 
erties Pert i tr ect: mee ee Rare 


2SG FRINT “HHHAHHAHSHAAAHSHHHRAH 
HPRARRHRARARARSE 

SIS LET xX=28: LET w=e: LEFT xi=i 
LET Yi=29: LEF 2i=66: LEFT Fias 


& 

220 PRINT ATF &.U: EINK 4: “H" AT 
2,43: EINK 5, °°" SAT S:.a2 : 
FLASH 25°44" 

Bsa LET tanme=i: LET 
2aG PRINT AF 28.22: ° 
2,1@;“Hiscore “js 
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2S5@ LET 2s $="°5° LET So “fe: LET 692 IF {#2338 ANH *213351 OR iygi-+ 
b$="6": LEFT nga" F" 353 AND UicetsS) THEN PRINT AT xia 
SSG IF fiag:9 THER SG TS Sse 5. SEW ERS GO TO £19 - 

SiG ITF SCREENS® ix+4+iag=“l"3 —-iag= SOS LET Z=HTITR (xis ibe="S"i -ibsS 

"FUME put lesa" SF -faea"b sree cH ="F"3 ,.yitibgs="S"3 —leg="S 3} 

HEN Go TO 485 6@5 PRINT AT *21.u2; EINK ('2i-G4 
SES EF s2="S" THEN LET a8="H". }-t1S5 AND =i-64;35633; FLASH ft AN 

LET mi“: GO TG 455 Bb 22-6439: "9" 

SS@ IF 3$="5" THEN LET 2¢="5". 506 LET zis== sao 

LET me="f": SO To 435: 610 LET x*2=xL¢b$="6"°3 —tbSe=" FG 
S46 iF a€="F"* THEN LET ag="5" LET yi=uleibs="G"3 -ibs="5"3 

LET me="H": GO TS aes 620 PRINT AT X2.43; EINK_S:2n8 
S5@ IF a$="“&“ THEN LET 2é="“F" 6S5 IF *¥=xX2 BNE Y= THEN Gio TO 

LET ms="sh" Sao 
4@21 IF €*38 ANE x<iS? OF tiu+is 650 £25 TS 2se : 

AND 2:25? THEN PRINT AT x,u; INK FBO IF tane=tanei THEN RETURN | 
ca: * “: GO SUE SOE. GO Te 42423 FOS PRINT AT X2.¥3; EINK Ci: ¢ 
4@2 LST Sa=RTTR ix+ts8="5S":i -isg- FEO LET i=SeSGN (iaene-tsneis L 
"F "2.4 (aba"S"? -tag="5"32 ET lanel=tanebet -= 
48S SRINT #TF Xs SRK of 7 7oae@ i Riax tL et ib*e"S "i -Le $=" 
485 IF a=iS5 THEN GO SUB 559 S"3) 

407 IF 3a=64%ic02 THEN LET scssiti FSG LET Yis=ultilLeiing="F"? —tbSs= 
419 LET xX=xX4ia$="5"3 -isgs="“F"}: $1) 

LET y=u+tag="8"} —tag="S"t Feo RETURN 
426 PRINT AT x,uU; ENH 4: BSG FGR i=25 TS -2&2 STEP -i: BE 
A35@Q PRINT AT 18,iFisc: BEEP .8¢S EP .@2.1: NEXT i - 

4.28 SiS PRINT ST 24.2; FREER 4: INK 
45@ IF x=x2 AND y=" THER SO TG GS; FLASH i; “Press anu key for 3 
Sae new cane* 

See = Fitsa:2@ THEN LET Fiaw=Fts SiS IF siths FHEN LET RS=fE 

3-1: SEEP .82,265 S28 IF INNHEYS$<¢3""* THEN Go To Ss 
Si@ IF SCREENS (xizttbg="S"} -ibsS @ 

="F"F ,ULEe CEH" SY —Le*=e"S IF oH S3@ IF INKEYS="“" THEN 6&2 
THEN SO TS ses B45 C2 TO St 
S20 iF ef="S" THEN LET bs=“F": ese c=o-: 

LET n&="R": GO TO SSS Sc=sS2-28- 

S30 IF 6€=“5" THEN LET bs="5": ,38 

LET ng="8": GO TS §se S55 LET fiag=1i9 
540 IF be="F" THEN LEFT bs="5": S60 LET sc=seris 

SET mS=="H": GO TS Seg BSB LET Lin=ENT {RNDS2SFt3- Lb 

SS@ IF bg="S" THEN LET &¢="5": COL=INT (RNDSSSG 43: IF CODE SCR 

LET ns=“E": GO FG S86 EEN f(Lin,cot?<+@ THEN GO To sre 
S89 fF (x38 AND x<25) GR i313 STS PRINT AT Lin.cot; EINE S: iL 

ANG Y<2B? THEN PRINT AT x.ui7 “: ASH a:"4" 

BOQ Sue 988: GO TG sie B88 RETURN 
681i IF (x42=3 AND bS="S"“! GR tui SMS LET is$=ENKEY$: EF Uris ANS 

=14 AND b#="S"} GR txXi=i2 ANE bS #EtS THEN GS TS s5s 

="7"} GR ({ys=i7 AND b&e="“S"3 THEN 985 IF us22 THEN GO TO SES 
PRINT AT Xi;4U23; INK ci;* “: 86 316 IF ig="S" AND utS2 THEN LET 

SUB FSG W=u-2: LET tane=iane-i 

935 IF i¢="S“ BRN u<& THEN LET 
W@=UFS: LET tane=Laneii 


44 45 
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ie HE 
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* 
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x 


9835S if i$="7 


Baa RETURK 
igae SATA 


(8 Awan 


WAST Po fot oa por 
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Zombies 


Zombies, from David Perry, iS a game in 
which you must Lure the Zombies into 
swamps. They are blind, and always move 
towards you. 


Full instructions sre provided within the 
program. Use the cursor keys to move 
around. Note that the pound signs in this 
listing should be entered as hash ([#) 
signs, 


1 REM 

= REM 

3 REM >» ZOMBTES 

4 REM Pa Ses ios noe ee 

o REM 

& REM COPYRIGHT 
7 REM DAVID FERRY 
8 REM 19BS ! 

o REM 
10 REM 


11 LET NUM=1O0: DIM NCNUM+id: 2D 
IM N#(NUM+1.8): FOR N=1 TO NUM: 
LET MON) #L100—CN#k100): LET Nai (M3 
="SPECTRUM": NEXT N 

12 BORDER 7: PAPER 7: Ink ©: & 
RIGHT O: CLS 

13 LET LEV=5: GO SUB 46 

14 LET SC=0 

15 BORDER 7: FAFER 7: INK O: B 
RIGHT O: CLS : DIM ACLEY): DIM B 
(LEY): LET KILL=0 


47 


14 PRINT AT OF s" 
i? FOR N=1 TO 20: FRINT AT N.S 
eas IB: ep rot 
We CINK On" "s) NEXT nv 
L& PRINT ATW 2i43¢" 
19 ARIGHT ©: BORDER 7 
20 PRINT AT 2. 288"7°s AT 3, 275" 
S"s INK Severn s INK O: "8": AT 4,28 
:"S6"3sAT 0,25; "Move. We AT f7.263-4—-= 
a~aPn AT Geer a Mey Maat Wa ois tel 
21 PRINT AT 8,27: "You="3 INE 6 
s"a"s AT 9,263 INK Os"Zomb="" INK 
23"b"s3AT 10,26: INK Os "Swamp": 
TINK eee" 
22, PRINT AT 12,273"GOOD"sAT 13 
ers “LUCE FAT 14 Sere" os 
aa PRINT AT 16,283 ""sLEV-KILL: 
AT 27,283 "TO SAT 28, 276 "K TERI 
24 FOR N=1 TO LEV 
25 LET ACN) =INT CRND¥20): LET 
B(N)=INT (RND*20): IF ATTR (ACN) 
1,.B8¢0N) +4) 25124 THEN 60 TO 25 
26 PRINT AT ACN) 4+1.,B(N) 44: INE 
2: PAPER 43 "bb": MEXT m 
27 FOR N=1 TO LEVkS 
28 LET A&=INT CRNDK20): LET B= 
NT (RNDK20): IF ATTR (At+1,B+4) <> 
124 THEN 60 TO 28 
29 PRINT AT At1. B+4: INE 3: FA 
PER 43 “e":s NEXT mn 
20 LET X=INT (RND*20): LET Y=I 
NY CRND*20):s IF ATTR (X+#1,¥+4) <> 
124 THEN GO TO =o 


ad 


PRINT AT X+1,¥+4s; INE Gs Fe 


FER 4;"a": FOR N=0 TO SO STEP ©: 


BEEF 


ox 
pas 

PER 
=r 


ANT) 


-92,N: NEXT N 
pnees AT X+1,Y+4; INE &} FA 
FOR N=1 TO LEV: IF A(N)=100 
N=.EV THEN GO TO 49 
IF A(NI=100 THEN NEXT WN 

IF MILL=LEY THEN G60 FO ¥1 
IF NeLEV THEN LET N=LEV 
PRINT AT ACN) +1,8¢0N)+4; BRE 


GHT 13 INK 42" " 


28 
N) +1 
A 
N)—-1 
40 
NM) 1 
41 
MN) +1 


42 
43 


IF ACND<X THEN LET ACN) =A 4 
IF B(N) >Y THEN LET B(NI=EB( 
IF ACN) >X THEN LET A(N) =A‘ 


IF B(N)<Y THEN LET E(N)=E( 


LET A=ATTR (ACN) +1.B(N) +4) 
IF @=1L24 THEN FRINT AT ACN 


+1, B(N)+4; INE 23 FAFER 4; BRIG 


4 es 


44 
FC 


"5": BEEP .G1,NMe NEXT 
IF A=99 THEN LET SC=SC+10: 
=7 TO @ STEP ~-1s PRINT AT 


A(N)+1,B(N)+43; BRIGHT 1; FAFER 4 


INK 


Is"c": BEEP .0O2,1k7: MEXT 


Ts PRINT AT ACN) +1,B(N)4+4; INE 3S 
3; PAPER 43; BRIGHT tg "ce"r LET KIL 
L=KILL+1: PRINT AT 16,283 ""sLEV— 
KILL: " “se LET ACM)=L100: TRF Ne=_ 
EV THEN NEXT N 


4S 


IF N>=LEY THEN LET MLE! 


46 IF N2=LEY AND A(N)=X AND EB ¢ 
Nd=Y¥ THEN FOR I= TO 7: PRINT A 
T ACN) +1,B(N)+4; BRIGHT 1; FAFER 

4; INK Is FLASH Lea": BEEP 21; 
I*k7: NEXT I: GO TO 87 

47 IF KILL=LEY THEN GO TO 91 

48 IF Ne LEY THEN NEXT N 

49 TF LEVYsK ILL THEN PASE 3: 

GO TO Yi 

20 FOR G=1 TO 2: PRINT AT X+1. 
¥+4; INK 4: BRIGHT 43." " 

S1 LET X=X+ CINEEY#="6")—- CINKEY 
$e"7")s LET Yay+ CINKEY#="8")— CIN 
REYS="E") 

s2 LET A=ATTR (X+1,Y+4) 

S3 IF @=124 THEN PRINT AT X+1 
«¥+4; INE &; FAPER 4; ERIGHT 1;" 
a": BEEP .04,20s NEXT is: GO TO = 


Lol 
_ 


=4 IF A=98 THEN 60 TO 10% 

we LET LEV?Ss CLS 2: PRINT AT 1 
»1ig"ZOMBIES";AT 2,113 "s===s===" 

w& PRINT AT 3,1:"YOU ARE SLOWL. 
¥Y SINEING INTQ THE" 

wa? FOR T= TO 7: PRINT AT I+é, 
S; PAPER 7-Is INK Is" SWAME 
: “s NEXT. I 

=8 PRINT AT 16,33 "HOWEVER YOU 
HAVE MANAGED": PRINT AT 19,53 "TO 
SCORE “s3SCs3" POINTS!" 

09 PRINT £14" Ctr) Copyriaht DAY 
ID FERRY 1983" 

60 LET I= 

61. FRINT AT 21.93 INK 1I3)"PRESS 
Am BREYE" 


50 


2 LET I=I+i: IF 127 THEN LET 
[= 1 
65 IF INKEYS="" THEN GO TO 61 
64 LET LEV=S: PAUSE © 
= GO TO 106 
64 CLS 1: FRINT AT ©O,10;"ZOMBIE 
so Aa 5% () gM secsspsesastecsecses 
67 PRINT = PRINT " YOU HAVE J 
UST LANDED ON AN" 
68 FRINT " ISLAND FPOFULATED 
WITH?" 
69 RESTORE 70: FOR N=0 TO 21: 
READ A: PORE USR "A'+N, A: NEXT N 
7O DATA 0,24,126,24,24,24,24,9 
129, 195, 165, 1465, 102,24, 36,24, 122 
F, 126, 66,99, 70, 66, 126, 129,153.70 
760, 2351, 291,50, 90, 152 


7i FOR N=7 TO 12: FRINT AT N.1 
O: INK N-7s"ZOMBIES":s BEEP 145, Ms 
NEXT N 

72 PRINT AT 14,103 "ZOMBIES": E 
SEP’ os sty cues 

7= PRINT AT 17,03"(c) COPYRIGH 
T DAVID FERRY 1983!" 

74 FAUSE 10: FOR N=0 TO 27: FR 
INT AT 19,N3 INE 23" b "3 INE ss 
"a's BEEF .Q2,N3 NEXT N 

7a PRINT AT 19,Nq” "se [PAUSE 

103; BEEP .5,40: FAUSE =: FOR N= 
27 TO 0 STEP -—1:s PRINT AT 19,,N;5 
INK 23"b "3 INK Sa"a "s BEEP ..O2 
Ni: NEXT MN 

7& CLS 

77 FRINT AT O,103; "ZOMBIES! "3 AT 


1 F 10 : 10 soorge ss sosssesez ses 


51 


78 PRINT AT 2,13"The zombies a 


re flesh-eaters however they 
are blind, that iG your anly 
advantage, They (TOMe im packs 
SQ you can use yourself as b 
ait to lure them inte the area 
s of swamp. Be careful, 
if you fall ain a pit then yo 
“uo Will die too. You anly have 


one life sio-' 

79 FRINT AT 12.4:" BE CAR 
EF thes | 

SO PRINT AT 14.13" The movemen 
t keys are 5-8." 

81 FRINT AT 16.23" YOU="s INK 
os"a"s INE O;" ZOMBIE="s INE 22" 
b's INE O;" SWAMP="s INE 2a"ce"s 
LN Og", * 

S2 LET I=O: PRINT £1:"¢(c) Copy 
right DAYID FERRY 1992" 

B= FRINT AT 19,8; INE I; PAFER 
; BRIGHT 13" PRESS @ KEY! " 
G4 LET TaIt+is BEEP .01, 1878 IF 

Ie? THEN. LET Ie 

G5 IF INKEY¢=""" THEN GO TO 6 

84 CLS : RETURN 

i” CLS : PRINT AT 1.11: "ZOMBIE 
ST) seta Od a" eects! 

S@ FOR N=0O TO 7: PRINT AT 44N, 
QO; PAPER Ny INK 7-NMs" THE Y © 
AU GHT YOU ! "“s NEXT N 

8? (50 TO 59g 

eo STOF 

f1 CLS : PRINT AT 1,11:"ZOMBIE 


yr “AT 2 mL Tee Mpa eerecesrees seco tt 


| 
— 


62 COR N=7. 70 O STEP —1e FPRINT 


AT 44+N,0; PAPER N3 INE 
QNGRATULATIO 
EXT N 

eS LET SC=SC+(LEVK20) 


Fone" & 
N.S “s ‘WN 


94 PRINT AT L3,13"YOU HAVE SCO 


RED “sSC2e" SO RARE" 
OS LET LEV=LEVtS: FOR 


Meet TO 2 


Q STEF 2: BEEP .G2,N2 NEXT Ne. PR 
INT AT 15,43 "NOW TRY THE MEXT LE 


VEL": PRINT : PRINT " 
"SLEV;" ZOMBIES!" 


G6 FRINT AT 197,73 "BONUS FOINTS 


=" (LEYS) «205 0" 


oO7 FRINT £1:"(C) Copyright DAV 


TD. PERRY 1782" 
PS LET I=0 


SO PRINT AT 21,6; INE 


ANY KEY!" 


I; "FRESS 


100 LET I=I+is BEEP .O02, 15: TF 


Ie? THEN LET I= 
191 IF INKEY$="" THEN 
102 60 TO Le 


GO TO 9 


tos CLS ¢ PRINT AT 1,329 "ZOMBIE 


qm H AT “3 : 11 : Weseres-eztzerrssssjes 1 


ss} ee 


104 FOR N=7 TQ © STEF 


AT S+N,0; PAPER Ns INE 


—i: PRINT 


Ne! Ye 


YW HAVE JUST COMMITED SUICIDE "s 


MEXT MM 

105 GO TO Se 

104 BORDER O: FAFER O: 
RIGHT 1: Ces 

107 IF SCS=N(10) THEN 


. 


INK 7: B 


GO TO i2 


108 LET NUM=11: IF SC >=N«(NUM) T 123 FAPER 7: INE OG: BORDER 7: B 
HEN INPUT “ENTER @ INITALS! "s5 RIGHT O: CLS : GO Ta 14 
¢; IF LEN F@>8 THEN GO TO 108 122 FRINT AT 10,4; "SORRY SCORE 
109 PRINT AT 7,0: FLASH 1; BRIG TO LOWwr tie 
HT GO: INE 7: PAPER @:"THIS WILL 124 PRINT AT 12.7:" PRESS A KEV 
ONLY TAKE © FEW SECS" ie 
1410 IF SC>=N(NUM) THEN LET N(N 1205 PAUSE 0: GO TO 114 
UM) =SC: LET N& CNUP) Pe 
111 FOR A=1 TO (NUM-1): LET Be= 
N#(A): LET CH= (AtL) + LET BENCA 
): LET C=N(A+1)2 IF BKC THEN LE 
YT N¢A)=C: LET N€O+L)=B: LET Nw CA 
)=CS: LET N€@(A+1) =BS 
112 NEXT @: FOR Nel TO NUM—1: 7 
F N(N) <N(N+1) THEN GO TO 111 
11 NEXT N 
114 CLS 
115 FRINT AT 2.4:"HALL OF 
FAME i 
114 FRINT AT ig HE OO a ee ee Se Ss 


117 FOR N=1 TO NUM-1i: PRINT AT 
N+, 73; INE 62 "Cs INK @3Ne TNE 
6:")":AT N+S,12: INE 73N(N)s PRI 
NT AT Me, 47%; INE S:N#(N)s NEXT 
N 

118 FLOT 6.0: DRAW 255.0: DRAW 
O,178: DRAW —2595.0: DRAW O,-17&: 
PRINT AT 17,8: PAPER 2: INK 73" 
PRESS ANY KEY! ": LET r=0 

119 LET I=I+i1: IF I>? THEN LET 
T=) 

120 PRINT AT 2.4: INK Is"H AL 
E OF FAME 

121 BEEF .01,1*7: FAUSE 2: IF I 
NEEY#="" THEN GO TO 11° 


54 ne 


ee 


56 


ADVENTURES 


57 


TROLL and THE CITY 


These two Adventure games, written by Neil 
Pellinacci, are played in similar ways, 
although the scenario and solution are — 
of course — different. It is worth trying 
to convince a friend to type the programs 
in for you, so you don't find out the 
solutions even before you run them. 


THE CITY includes instructions in the 
program which precedes the main game. To 
complete the Adventure, you must say the 
password so your contact can hear it. You 
don't know who the contact is, although 
there are not many possibilities, 


In the second Adventure, TROLL, you must 
try and escape from the TroLlL's Lair. He's 
very mean and will let you escape only 
over his dead body. Therefore, you have to 
kill him to win. 


In both programs, as in most Adventure 
games, you enter your Commands as two-word 
phrases (verbs and nouns) such as GO WEST 
or DROP AXE. You'Ll soon discover which 
words the program will recognize. 


Note that each program has aeé_e loader 
program (which for THE CITY doubles as an 
instruction manual). This sets up the 
screen and keyboard. 48K owners can Leave 
out the CLEAR 32767 instruction, but the 


CLS must be left in. 
built SAVE instructions, note that you'Ll 


have 


beforehand. 


The 


set the 


If you use the in- 


colors and POKEs 


have been used to maximise 


memory space for the main program, To type 
enter and SAVE the’ Loader 
type in and SAVE the main 


the 


program, 
directly after it. When saving the 
programs, 


game 


re-running them, remember 
that the start Line is 1 for the Loaders 
and 900 for the main programs. 


Here is the Loader for TROLL: 


1S REM hte Sep 


RIGH 


26 eee are 


mture = Heit 
tLinecci 1965 é 
PearEeER G: INK F S 
aT 
SESS, 106 PORE 2365 
fag a 4 


And this is the main TROLL program: 


12 PRINT ‘"I AYN AT THE TROLL 5 
GATE. 

13 IF O19} THEN PRINT “I_HAVE 
NO WEAPON AND T MUST LEAVE © 
utckK 

T P: RETURN oe 

is BR: ‘iy AM IN A SMALL SHO 

P, WHICH SELLS ONLY DOG-FOOR 
.¢: LET S=P: RETURM 

33 “2 ai Ih A SHELL, BA 
RK” CAVE. THERE iS A GATE TO 
THE NORTH, ANE 8 GLESRING TO 7 
HE EAST.” 

ad LET N LET =P: LET E£=P: 
RETURN 


60 


6 PRINT °"IT Air IN RAR CLEAR ete 
EF GAVE IS FO TRE WEST.”: LE 

: LET W=P; RETURN ; oy 
9 PRINT °“"T SH OF AR PATH, Wis 
CONTINUES FO THE SanatiTH. I CRH 
FR SHCrF FO FRE NORTH, AND 
OUNTRIN TO FHE EAST.” 

4@ LET N=P: LT a=F: LET &=F: 


42 PRINT ‘°THERE IS A FOUNTAIN 
HERE. #A ROADLEADS OFF TO THE sc 

UTR.” : LET S=F: LEY =P: RETURN 

S¢ FPRINT “"T RW SFANOCING IN RF 
NARROW, ROCKYRERSSAGE WHICH GENTL 


“ag 
om 


x RISES. TO TRE NORTH. IT ey Mea, 
E DAYLIGHT RSBCVE.-: LET w= i 
ET U=F: RETURS 

60 PRINT “"I ie mae ON & 
SRAVEL PATH. A RAAT & ies TO THe 
ERAST.": LET W=P: LET £=P 


61 TF Of4)} sL0c THEN PRINT “THE 


RE IS A MOUND AT Hy FEET. 
62 RETURH 

—_ 8S PRINT “HR ROAD RUNS NORTH-S 
DUTH. A FOUNTRIN LIES TO TH 
Ss MORTR. TT: LET No: LEY DSP: RET 
URN 

‘eo PRINT ““X TAH SEE KR SMALL E 
LEARING WITH A LERGE TREE.": LET 


P: LET E=F: RETURN 
72 PRINT “"F SMH IN A THICK FOR 
EST. THERE BRE CLEARINGS TO TH 


E EARST AND SGUTH.” 

73 LEY W=P;> LEY &=FP: LET s=P: 
RETURN 

75 PRIN “I BM STANOING IN FR 
CLEARING. THERE FS FR CESEP SHA 
FT IN THE GROUND. : LET W=P: 
LET O=FP: RETUAH 

B84 PRINT “~“THE AUALD ENDS HERE. 
THE RIVER ISTo THE SOUTH, WITH 
MOUNTAINS S&EyYQnNp.”: LET N=P: 
RETUR 


tl 
S7 PRINT “°"R LARGE VOLF LERPT 
GUT OF THE FREES, ARNO KILLED M 
E.": GO TO Seeke 


 3@ PRINT ““IT_ AM STANDING IN RR 

CLEARING. I CAN HERR RUSTLING WN 
SISES TO THE WEST.": LET N=P: LE 
T EP: LET t¢t=P:> REFURN 


AY BE POSSIBLE 


SUARDED SY AW Dos, 


LET S=boe: =F NOT 
“THE GOOG KFii SE RR 


PRINT °““ZT RHR HEAR 
CQOOR te RHEAD OF HME.": 


3 PRINT “THE FOREST RY HER 
A RIVER LIES FR THE SOUTH. 
M yO cROSS.' 
ie Lear: LET iwWt=P: RETURN 

& RINT ~“I Hit SFSNCING ON TH 
TWER BRHE.T CAN BEE AN QAPEN & 
NH 
Ss 


RAND A MRE 


S THEN PR 
FROSLEN. . 


A are ae 


4138 PRINT “I At Mau INSIDE THE 


MANSION. I CERTAINLY 


HOUL DN 7 T 


iu 
LUE HERE. IT°S SLi GUSTY AND s 
MELLY.": LET W=P: RETURN 


3 . + (LET 
FL=0@: FOR Z=P TO 2: IF OfZ) =Lo0c 
THEN GO TO 838: REM THEN PRINT ” 


MSPs) LES Fi =F 
G10 NEXT Z: IF WOT FL 
TF “NOTHING” 

S2Q RETURN 


THEN PRIN 


Bem Z=4 AND LOC=2eea THEN GO T 
| 
34a Sep “A "5; OS TZ} LET FL=1: 
GQ Ta 82 
LS oid As ee =" < THEN LET AS=RAE 
{2 To 52 
or IF As TLEN Agi =" “ THEN LET 
AS=AS( TO LEN ARS-PS GO TQ &608 
B7@ LET 8&s$="" FOR Z=P_ TO LEN ‘Ss 


S: IF AgstzZ) =" 3 SIREN LET Bs=A 


35a NEXT Z: Se URN 


5 
Z-P)}: RET 


999 GO SUB LOC4&: PRINT ‘"ExITSs 
2 5 C' NORTH " AND Ni; ft" SOQUTH " 
atthe i; ("ERST a Er; ("WEST AN 


3930 INPUT INK S; “HAT 
o7"* LINE Ag: IF Ags"" 
i385 GO SUB a5@: PRINT 
= SES: PRINT 


SHALL FTF 
THEN GO TF 


INK 63 AE; 


1e@a?7 IF LOQC=4 ANG RAHG>,.SR THEN F 
RINT “THE TROLL LERFF OUT AND SH 
73 S000 SRULL. IF RH DEAD.': Goa 


1488 IF LOQcesaeas AND NAT COG AND R 
*.S THEN PRINT “THE BOG ATTACK 
ME AND KILLED HE.": GO TQ SZ 


THEN LET Lo 
THEN LET Lo 
ND THEN LET LO 
: Cc+-P- 
1a4@ IF Ag="U" AND M THEN LET Lo 
_L= < ro fc - 
iaéS IF Ag="W" GR Ags="E" AR _Ag=" 
N° OR AS="S" THEN PRINT “I CAN ‘T 
GO IN THAT DIRECTION.": Go To ¢ 
2050 IF AS="I" THEN GO SUB 200G- 
196@ IF A€="LOQ0K" THEN CLS : GO 
To C-p-p 
1970 IF AS="C" THEN co To sooo 
4980 IF AS="U" THEN GO To 3100 
1890 IF Ag="GET" GR AS="TAKE" TH 


i106 Ag="oROP” CR AS="PUT TH 


8 
H 
7 
B 
Lig 
i 
en 
qT 
2 
Bi 


Cy ea be HT oS 
ui SSO! 
é 
a 
Oo 
+ 
7 
14% G) 
ny 
Co 
! 
nl 
} 
aed es Dyes) 


an 
ot ow 


a: ASn"RILL” THEN GO TO 230 
3B 

Gases IF AS="ORPEN THEN GO To 24 

2138 IF AS="CROSS" THEN GO TO 25 
liso IF AS="UNLOCK” THEN GO To 2 

G4SQ IF A$="FEED” THEN Ga Ta 276 
a 

3450 IF AsS="BLiY" THEN GO Ta 265 
1270 If AS="SRUE" THEN SAVE “AB” 
LINE 998: PRINT “GERIFY...": GE 
RIFY "AD": ge Ta c 

2150 IF AS="BUIT” THEN GO TO 897 
“5 

3190 IF AS$="HELE” THEN PRINT “TH 
E TROLL UON‘T LET you eo EVEN Ie 
YOU ASK NICELY...": ea TO 

4280 IF AS="DIs" THEN GO TO 

i300 PRIND "Er BON! F UNDERSTAND. 
-"s0 TOC 


Sa@e PRINT °F HRGE THE FOLLOWIN 2430 IF NOY F&C THEM PRINT "IT’S 
S...°: LET Fise®: FOR Z=1 Ta @: = LOCKED,": Go Tro c 
FOtZ) =0 THEN PRINT “A “70s tz): 2440 PRINT “aGk..": LET Loc=sLac+s 
L=T FL= =: GO TQ C-P-P 
2Q10 NEXT Z: IF WOT FL THEN PRIN 25@@ IF 8$="" THEN FHEUT INK 5; ° 
7 “NOTHING, ” AAT DO YOU thHaniT To “cRosa?" a ttn 
Peea RETURN Fenn’ yeh 10 2508 
Fe WHAT PE ae RBS: GOTTA 2 shee THAT CLEUER, “ATEN: Go 
122 fv 
S405 IF OB=4 THEN PRINT "I CAN‘’T 25@7 IF LOC+233 AND LOC<»32 THEN 
CARRY ANY HORE.“: Gao Ta c PRINT “SHOW NE AS RIVER, AND I°L 
2410 FOR Z=P To 3: IF _O8iZ) ¢ To i. TRY.": GO TOC 
LEN 6%) =B8$ ANE Ot: =Loc THEN Go 2518 IF _O(2) THEN PRINT “IM GOL 
FA Pi3e HG TO NEED SOMETHING TO HELP ME 
22a NEXT Z: PRINT “I caAN’T po TF 2"; 80 TO 6 
HST.": Go TO c #52@ PRINT "OR.."%: LET Loc=toct+: 
S430 IF BS="POG BANE’ ANG LOC= LOCHSL) -(LOCHa2)3: Sa Fo C-P-P 
THEN PRINT “THAT DOuLD RE STEAL LI 260@ IF BS="" THEN INPUT INK Si ° 
Nor’: Go Ta c PLEASE CONTINUE *OUR CONHAND.‘'* 
B74 PRINT “OKs. ? LET Of23.80: L LINE BS: GO TO Bae2 
ET O8B =OB8B4P: GG Fa & 2685 IF BS$io"Doan” THEN PRINT VT 
2200 IF BS="" THEN INPUT INK 7” HAT COULD TAKE ME A UHILE.": Go 
wat. SHALE os. CBee? 7 22° bt Toa c 
S¢: GO TO 22ae 261@ IF LOCs2:39 THEN PRINT “I CA 
S2Si0 FOR Z=P Ta 3: FTF O@$i(zZ1t To m*T SEE A POGH!’: Go Fro © 
LEN BS) =BS AND QizZ}=2 THEN PRINT 2620 IF 00 THEN FRINT “you 0b. 
aa op OriFr,(sLOoc: LET OB=05 ant S ALREADY UNLOCKED! ':- TS 
-P: G : = 
2220 NEXT Z: PRINT "I HAVE NO "; 2e5e5 IF Of4) THEN FRINT “you HAY 
BB; "9°: Co Te & = NO KEY...": GO Fo Cf 
23@@ IF 8 $="" FHEN TNPUT INK 5S; °° S630 PRINT “GQkR-.": LET BDO=P: GG 
KILL WHAT?’ LINE &$: GO TO 2306 rac 
z NOT THAT SORT GF PERSONT": & DON “T THINK IT’S WORTH IT.": GS 
i Pi 
2345 IF LoCcs24 THEM PRINT “I cAN 271@ IF LoC+s:22 THEN PRINT "WHAT 
‘T SEE A TROLL! ”: Go Tra c Doe7": CO Ta Cc 
SS2e@ IF Of93 FHEN FRIMNT "wou HRY 2726 IF O(P? THEN PRINT “WHAT UT 
= NOTHING TQ KELL THE TROLL U TH, YOUR FINSERS?”": Ga To ¢ 
ITH.": GO TAC #738 PRINT “THE @236 ARS FRLLEN 
253@ PRINT "rey, ONE, YOU HRY RSLEEP."”: LCE POG=erP; LET S=P: LE 
E KILLED THE TRGit AND EARNT YO T O(P) sLOC: LEFT O8=a8-P: Ge Toc 
UR FREEDPOM.": Go Fa Berea 2580 IF OF: THEN FRINT “you HRY 
2¢4@@ IF B$="" THEN INPUT INK 5; “ = NO MONEY.":; Sa Fo ¢ 
WHAT SHALL I OPEN?’ LINE BS: Go 2510 IF @s$="" THEM INPUT INK 5S; ' 
TO 2400 ANYTHING Inv 2 BART ICULAR?* - LINE & 
2410 IF BS$<o"COQR” THEN PRINT “7 #: GO TO 26 
HOT I CANNOT CPa.": Go Tac eeae2e IF Bs-"NO” THEN PRINT “WATC 
S42@ IF Lac«:22 FHEN PRINT “WHAT H IT, MATE! I°tt LOSE Hy PATI 
DOOR?': GO The ENCE": GO Te & 
65 


7) 


@ IF Beis" RS BANE" THEM PRIN 
“UHY BOTHER IF IFS FREE?": GO 
Cc 


OH ag QC<28 THEN FRINT "THERE 

No. bas Sons HERE. *: BQ TO C 

5 IF O8=4 THEN PRINT “I CAN'T 

cSARRY RNY MORE." (7 GO TO ¢ 

2850 PRINT “OQkK..,": LET Gtr =a: 

ET O8 =OB+P: Gea fo c 

2900 IF_LOC*¢see THEN PRINT "I CAR 
c 


m1) 


M4 


CCH | 


fy sd 
$ BO 


i) 


[ 


NH“T BPO THAT YET."%: Ga TO C¢ ; 
291@ IF Of(4) ¢ 9b ac THEN aa ts LE a | 
eae NOTHING THERE.“: God c 
~= 


ae aoe “I HAVES FOUNL ae REY.“ 
: oO F 
SQQG@ IF LOoCc«s25 THEN PRINT “DOWN 
HERE?" : GO TS c 

1@ IF Q@¢{S:i THEH FRINT “I'M NOT 
“JUMBING; I°Li SRERE HY NECK: * - 
So TO 
3329 PRINT eae jue LEF Lac=Loc—rF 


LACE?":; GO Te c 


3120 PRINT "OK..°: LET Loc=Loc+r 
> GO TO C-P-P 
6370 CLS : INPUT “ARE ou SURE - 


YN >. LINE. As 


2982 IF Ag="¥" OR AS="YES" THEN 
60 To 9000 

S990 GO To c 

3200 INPUT "DO YOu _ WANT ANOTHER 
SO? (Y“N)"> LINE Ags 

S@i@ IF Ag="Y" GR AgS="VYES" THEN 
RUN gae 

2020 IF AS="N° OR AS="NO" THEN 5 
2830 GO TO aaae 

2500 LET O=Fi-Sr: LET P=PIsPr 
$510 LET FSVAL "7": LET LOCSVAL 
"94"; LET OB=0 

9520 LET DO=0: LET BOG=0: LET C= 
VAL "1800"; CIM OsiS,a): DIM OCs 
953@ FOR Z=P TO INT tFIaPqI): REA 
D O8(Z) ,¥S: LET Atzi=UARL ¥S 

254@ NEXT Zz 


355@ DATR “COG BONE, "6", “PLANER 


j ae 347%) "RING", er 34a ez ; ve ge yea 4 “sar 2 “Ro 
re ’ Me-t<4 y “Rac dee “pa « "tte LeT" ‘ a 
oa... “EGOOK te + i = Mad ) “aun” x aA 


26@@ RETURN 


This next program is the loader for THE 
CITY: 


1@ REM The Dity 
22 RE! RAD Beéverture wares 
S@ REN Sy Nest FPetitinacti 2983 
42 REY 2SkR Seect rum 
Sa REM 
6@ RE 
7@ BORDER 2&2 PREPER @ INK, 7 = 
RIGHT #2 
B@ CLERR BE7Sr: CLe 
9@ POKE 2a6E8@9,188: POKE 25652, 
S PGKE 2n56e4+,72 
95 GO SUB 2een 
1@@ LOAD "*" 
2@@ DIN REtBe PRPER = 
LET $=" ST OQP OTHE TRRE 
nrg ET l= GO SUB ARs 
218 PAUSE id@e@: FREER @ CLS 
2206 LET AS=” THE ¢C2Tr 
Ys LEY £=23: INK &:. BO SUB. Sae 
23a@ LET AS="ARM ROLENTURE FOR FH 
= IM SPECTRUM’: LET Las. GO SUB 
Soa 
24AQ LET AS="WRITTEN By NETL PEL 
LInAccdr 1983": IHK S: LET L=8:; 
Sa sub 326e 
25@ LET As=" PRESS RNY KEY To 
CONTINUE’: INK ?Y: LEF L=36;: Ge 
SUR Saea 
26Q@Q LET Le=i PAUSE 12: PRUSE @: 
SES 
PES FOR F=-22 FO Be ABTFEF 5S: BEE 
P ,@1,Z: BEEP .21,2/10: BEEP .@2 
,2-1@: BEEP .@14,273@: NEXT Z 
270 RESTORE 
PEG READ AS: IF ASI13I="#" THEN 
RETURN 
Bsa IF Ast{tii ="3" THEN neice AT 
md 5O> ANK, B32 PRESS AN KEY To 
CONTINUE’: PStisk& 3: PBUSE @: CL 
S&S ~¢ BEEF 7.27.85 SEE «2,32: SBSEEP 


BEEP .3,238@: LET L=1: GO F 
S@0 GO SUB S@@: LET L=L+2: GO F 
26a 

4@08 DATA © TH THIS SEVENTURE CR 
HE YOU MUST ” ; 
410 ep PN ed ded, SQME STOLEN Hi 
422 DATA “HONEY 35, HOWEVER, ST 

THE * 


430 DATR “BANK URULT. THE SANK 
TS OWNED By * 


440 DATA “TFHE 8A STER WHO STCL 
Ee THES. 

4502 DATR “NONEY.* 

+62 ane " “WG LEST RRERK INTO 
THE BANK," 


nee DATA “AMD STERL THE MONEY 5 
“7 
70a DATR “HOWEVER, THIS WIlLi Wo 


Sie@ GATS ” TO COMBS T FHIs,. ‘yOu 
HAVE rene Px 
S20 O87 “SSSShhGein BA BOUHS SCARE 
> AND 30o = a 
S32 ORTS Tis AS ZS HESALY eft 
PIV «Our 


_ Do oF 
540 PATA "MUST STILL BE CRREFUL 


eeete 
SSQ CATA “POLICE DoMN’T GET THE 
WRONG IDEA. abe 
560 DATA “THEY WILL NOT KNOW AB 
OUT YaUR" 


S70 CATA "SECRET NTSSION. " _ 
560 DATR " WHEN +L! HAVE COLLE® 
TES THE" 


SSG PATA “MONEY, YOu HUST FIND 


@ DATA “CONTACT. HE WILL TAKE 
Uo BUIATY . * 


D try 
@ DATA “ TO PLAY, ENTER YOUR 
H 

@ DATA “PLAIN ENGLISH, USING 


of 


HOON ~S 


a DATA “NOUNS . THE EXCEPTION 
65@ DATA “GO NORTH, “-S° TO GO 5S 


{4 


68 


S60 CATR “ IF yOu WANT To sTor 
vPE" 
S70 DATR “"SToOS’ Of -pUET’. ‘3A 


680 DATH “SHve FHE CURRENT GANE 
692 DATA “SO THAT yOu CAN FINIS 


7a ” ;: Ss 
TRAT THE TREE 
Y2e@ DPRTR “#" 
Sao FSrForRr &. aes ra wi OF - 
S00 FOR 2Z=32 TO 31 STEP -1: PRIN 
TAT LOG; ASiZ2 FR +: NEXT 2e REE 


Once you have that in place, you can enter 
and save THE CITY program itself: 


3 PRINT ‘“i AM IN A_TUBE STR? 
ZOM. THERE I59 TRAIN WAITING TC 
LEAVE. THE TRAE WAITS OUTSIDE - 
‘: RETURN 

142 PRINT “ZI AN STANDING BERS 
S f SUTCHER’ SSHGP. Tf CAN SEE AS 
UILDING SITE TO THE EAST.": LET 
E=F.: ET S=FP: RETUR?H 

25 PRINT ‘A LSRSE SFEEL GIRGE 
R FELL ON HE.I AM DESD.": GO Te 
12050) 


AM OUTSIDE THE FR 
S BEFORE ME. THE 
GO THE EAST.": LET 


AM IN TRE HIGnH SF 
S DESERTED, APART 
MARKET IS TO THE 
=P: LEY Wer: Cer Ss 
g 


ef RRANT © 6 OE M STANDING IN & 
LARGE SHOP. = CAN SEE NO PEOPLE 
- THERE IS A CAFE TO THE EARST.*- 
LEY NsrF: LET S=P: LET W=sP: LET 
EsP: RETURN 


E= LET bo. 
24 PRINT ° 

REET, WHICH 

FROM A TON ee 

SOUTH. ": 

=P; RETURNS 


_ o@ FRINT ‘°’"I AH STANDING IN F 
SAALL, BESERTED CAFE. THE 
LARGE SHOP FTSTO THE WEST."“: LET 


W=P: RETURN 


69 


, 36 PRINT <"“I AM INSIDE THE Ban ME. I MUST PRESS THE RIGHT GNE 
K. IT IS VERYGUIET. IF GU TH : 
EN PRINT “I CAN SEE A’ GUARD WITH 64 LET N=P: RETURN 
HIS BACK To ME.’ ; 665 PRINT ‘°"S YALL HAS APPEARED 
SB? PRINT : LET PB ny ae LET S=NQT BEN IND ME. i Ae TRAPPED.*: GC 
GU: RETURN TO 90aa 
"39 PRINT ‘"I AM IN & STREET HG , JB PRINT °"I SM _ INSIDE THE MAT 
RKET. RF POLICE STATION IS T M VAULT ROGH.": LET M=F: RETURN 
O THE EAST, AND A BUILDING SITE SOS te ASPs ae EN LET ASRAS 
ET N=P: LET S=P: LET E=P- = LEN Agi=* ° THEN LET 
RETURN a AS=AG( TO LEN AS-P}. GG TO 616 
42 PRINT ““I HSUE ARRIVED AT Pee Rel Bee): Sok 22e 00 LEN A 
HE POLICE STATionN. IT NOT %: IF ASt(Z+=" “ THEN_LET oe AG (Zz 
BESERTED..." +P TO 3: LET &S$=8si TS =2-P): RET 
43 IF NOT Gt?7} THEN PRINT "AP URN . 
GLICENWAN SEES FHE HCHEY AND ARR E360 NEXT 2: RETURR 
ESTS ME."': GG To sSEoo 7@Q FESTORE SSGS:. FOR Z=P TO 7: 
44 PRINT “G POLICEHGH TAKES WH READ AS,EB$: IF Giz3=G THEN LET 
ST I HRVE COLLECTED GENO RETURN O12) =VAL_ ES 
3S THEM To WHERE T FOUND THEN.” fi@ NExT_ =; LET G6=0: RETURN 
LET N=P: LET USP: GO TO 798 _~S@0 PRINT ““EXITS: “j (“NORTH 
45 PRINT ‘“i AH IN & SMALL GLO AND NI; (“SOUTH “ AD 5&3; (“ERST “ 
Cy TUBE STATIGN. THERE IS 3 AND EE); (“WEST G@No Wy) 
HOLE IN THE WALL FO THE SOUTH.” 810 PRINT °““*I CAN SEE.." 
TET S=P. RETURN avee LET Fl=G: FOR Z=P TO 7:_IF 
46 PRINT ‘“I AM STANDING IN FR O(ZJ=LOC THEM PRINT “A “FOS(Z): 
ONT OF THE VAULT DOOR, WHICH FE LET FiL=P 
5 LOCKED.“ S3@ WNEXT 2: EF NOT FL THEN PRIN 
49 IF VC THEN PRINT “THERE I35 T_"NOTHING INTERESTING. 
A HOLE IN IT.* S4@ RETURN 
S@ LET €=P: Ler SB: RETURN Soa CO SUE SSGG: CLS 
Si PRINT ‘“t CAN SEE TWO DOORS 999 LET N=O: LET S=0: LET _E=0: 
, ONE TO THE BEST, GENE TO THE So LET W=0: GO SUE LOCKS: GG SUB 65 
UTH. THE VeULT ENTRANCE IS T ge 
O THE NORTH.": LET H=P: LET S=P: 2@00 INPUT INKS. “URAT SHALL ace 
LET W=P: RETURN QO NOW?" * LINE Ag: IF AGS" THE 
S54 PRINT °"I AM ON A BUILDING co To c . 
SITE, WAICH IS SURRGUNDED BY HE 2180490 IF LOC=a1S AND RND;+.SG AND Gi 
GH WALLS.": LET N=P: RETURN _THEN PRINT ‘“THE GUDARD TURNED, 
S?7 PRINT ““i'M NGWU STANDING Ii AW ME, THEN SHOT HE. I AM DERD 
THE FOYER OFS LSRGE HOTEL. BEFO <": GO TG 3896 
RE ME IS THE RECEPTIGON DESK.": i850 Go SUE 6090: PRINT ’ INK 6;A 
E=P: RETURN $5 16 ee 
=. PRINT ’“ I &eé IR THE BOASEMEN 2060 IF AG="N° AND N THEN LET LO 
T OF RB LARGE BUZLSING.": LET N=P C=LOC-F: G& TS C-F 
LET W=P; RETUPN 1a7@ IF Ag¢="S" AND S THEN LET La 
S83 PRINT °°I AM INSIDE THE VARU C=LOCtF: GOGO FO C-P 
LT. TO REACH THE HOMEY, I HAVE TF 1960 IF AG="E" GNO £& THEN LET LO 
G ENTER THE KEYPANEL CODE. THER C=LOC+P: GO TO C-P 
FE ARE gS BUTTONS IN FRONT OF 1930 IF AG="W" SND U FHEN LET 1a 
C=LOC-FP: GO Ta c-E 
e "1 


fs 
HO 8 


@ IF Ags" SR S$="S" OR Ag=" 
OR Ag=*U" THEN PRINT “S CAN *> 
IN _THAT DIRECTION”: GO To © 
1@ IF Ag="GET" GR SGH="TAKE" TH 
GO TG 2905 
2 IF RSS 7BROP™ OR Ag="PUT™ TH 
G TO 3196 
IF Ag="I* THEN SO TO 22ae@ 
F A$="LGGK™ THEN CLS : GD 


F AS="HELP* THEN GO Ta Baa 
IF AS="“BSORRD™ GR AS="CATCH" 
N GO TO 24935 

IF AS="UMLGCK™ THEN GO Ta = 
IF AG="“OPEN' THEN GO TO 262 


IF AG="bD" THEN GO TG 2750 
6 IF _ As="QUIT™ GR AG="“STOP" TF 


@ IF AG="RESO” GR AS="EXAMNINE 
$="KEILL” THEN GO TO 292 
a 


“CUT™ THEN GO TO sec: 
“PRESS” OR AG="PUSH" 


“SHVE™“ THEN SAVE “CIT 
"To “WVERZTEY «2a: 


Sav" THEN GO TO szea 
“¥ DON? UNDERSTAND. © 


“““ THEN INPUT INK 5; ° 
“" LINE 564: GO TG Bes 


a2 iF LEN 68:25 THEN PRINT “I 
N GO Tc £& 

85 IF OB=S THEM PRINT “I CAN'T 
wae ANY HORE.": GO TA 

h 


IT ba 


a 
: 


ba eet) 


fu 


eda) ie | ae oT 
fet) 


P2590 GWG 
ae 8 ame soeen 


i Wr tate 


to 
Ds 
mM 
z 

a 
Q 

DO 
+ 
0) 
it 
“OM 
1c} 


Sp be Fee ED pce Bek TE pt ee HY fee fa ed bs PT] fae PT) 


WacL tna 


- 


ral 
O 
wDADD 
“D4 
| 


“dil 


ne 
re 


- 
. 


%. 


be fd 
SOSGHTRZOB a 


49neaat cmp 
MOZD 


HN BuO 


@ FOR Z=P TS F: IF G€1F3( To 
1 B$3=B$ AND O23 =L56 THEN LET 
(Z) =O: LET SS=GB+2: PRINT “OR. 

2@ NEXT Zs PRINT “I SEE NO “;e 
oe c 

@ IF Bsa" THEN PRINT ASS" WA 


mee FREN PRINT "5 


rin 
GB -OMgnaos Me con 
+ 


CU OU te fh = 


Dieries: 


72 


ROZ=P To 7: IF G$tzZit TO 
ioe THEN PRINT “OR..* Le 


[the 


& Woz 


i GC: LET SS =S- i: GG To 
NEXT 2: PRINT “I HAVE NG “ 
c 


ag i 
@ PRINT “I HAVE THE roe ae 
LET FL=G:.FGR ==P TO F?: 
=Q THEN PRINT “A “; OS (ZZ): We 
=F 


NEXT 2: ZF NOT FL THEN. PRIN 
RK NOTRING. ~ 


3O. LF LOG=27 THEN Pe RIS “RSK TFT 
VILLAGE PECPLE.“: GG Cc 

L232 PRINT “FOLLOW THE OLD LONDS 
nN - BRISTOL RORDI: E65 

R400 IF BS="" THEN PRINT Coe; * WH 
AY 7° :° 68 “FO. & ; 
S410 IF Beir“ TESInN' GND EB¢€¢+"TAX 


aun TUM RY 
or-- 


MIWA WaMri 
fy 
ld st TN 
1S] 
40) 
QO: 
a4 
as 


LOT) fy 


x" THEN PRINT “f can'r.": Ga ta 

2aa0 IF S6$="TREIN” AND LOCirs AN 
CP LOCis1S THEN GG To S455 

#22359 IF 6$=“TANIT FRO LOCtCrS ANG 
LOC¢?6 THEN Go FS 24396 

ZeeR IF 6$="TRAIN' THEN GOGO TG 24 
S450 IF O(2) THEN PRINT “I HAVE 
HO MONEY FOR TRE FRRE.*: GO TA = 
246@ PRINT “THE TAXI DRIVES OFF 

WITH HE EHSISE.~: LET Loc=la 
C#tF AND LOC=SI-tF AND LOC=6) S 
2 TO = 

24790 IF Of323 THEM PRINT "IT NEED 

WM TICKET! !"“; Go Fo £ 

2450 PRINT “Zi GET IN AND THE TRA 
in MCVES ABR 2°: LET Loc|e(S. A 


iwiD Ph 2513 +425 AND LOoc=zS): GO TID 
c- 
E+ PRINT “I CAN'T CO THAT YET. 


Go To ¢ 2 
25@@ IF B¢="" THEN PRINT “WHAT 5 
HALL I UNLGCKT": GO FS 
S616 IF Bs "DOGR™ THEN PRINT “Z 

CAN'T DG THAT.”: GO TG 


Cc 
eS20 IF LOC?’+? THEN PRINT “WHAT 


2538 IF OO THEN PREINT “YOU IDIOT 
IT’S SLREADY UNLOCKErD! 
f"' BO _ TQ-€ 

Soa IF O(83 FTHEH PRINT “I NEED 

HE KEY.*": GO TO ¢ 


73 


S@ PRINT “GhH..*. LET DO=P: GO 


a: 

@6 IF B#="" THEN PRINT “OPEN : 

IAT? GO: TE 

@ IF &$<;>"DOGR™ THEN PRINT “ZI 
: ‘; GO To c 


@ IF Lo¢<:7 THEN PRINT “I CRH 
8c A DOGR!": GOD 
-K 


Tigedh 
MDA 


(0 


up-Hey 


Q 
DEO 


To Cc 
IF NOT DO THEN PRINT “IT’S 

ED.": Go Ta ¢ reat thn 

@ LET DOi=P: PRINT “OR.. 2 

N SEE SOME STAIRS GOING = 

iN," : GO TO C 

OG IF LOG<:7 THEN GO TG sage 

73@ IF NOT COZ THEN PRINT "TH 

‘S A DOOR IN THE WAY! ": GO TO 

E7Se PRINT “OK..": LET LOCsLOocs 
s 
2 


@@ IF Bs=" * THEN INPUT INK 3 f 
1; WHAT?’ LINE EBS: GO TO 6S 
r 


19 IF 6$¢7?“CLve” THEN PRINT " 
TAN’ T DO THAT! “: Go To Cc 

-2@ IF O{(6i THEM PRINT aM Net 
CARRYING A CLUE.”: GO TO CG 

2E30 PRINT “TRE Cieue If VURITTEN 
GNM AG-SIZED PAPER. IF SAYS: “RUS 
A BUE DORs ae MS SS. TO 
2900 IF S¢="“ THEN PRINT “KILL UU 
HAT?": GO TO C 

29160 IF BSi>“GUARD” THEN PRINT 
=a REP eRe ON MORAL GROUNDS.*: GC 
D926 IF LOC<¢ +12 THEN roma “I. CA 
N‘T SEE A GUARD'*: Go TG 

2930 IF O(P3 THEN PRINT = = HAVE 


= PRINT “OR..": LET GU=O0: Go 


s2aaQ@ IF G6$="“" THEN INPUT INK 5; * 
se eS i CuTT’’ LINE GB: Go 


O13, or BS<cs°VaulT DOOR” THEN PR 
NT “I CAN’T oc BRS ES ery AS TD 

‘O20 IF LOC«¢:1if THEN PRINT “I SE 

ou YRULT DOORS HERE!": Go To = 
20 IF Of43 THEM PR INT | “I HAVE 
NOTHING FG COUT -ZY BITH.“: Go Ta 


240 PRINT “GR..”": LET VC=FP: GG 
70 C-P 


forty «fg 
ein 


IE 


bd 
= 


TUITAI AY 


sitet oe “I 


Be IZ UMS 
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@® IF LOC<¢+22 THEN PRINT "THER 
NOTHING HERE TOG “jASS "IH": Go 
Cc 
IP LEN 6$<;>P THEN PRINT “I 
A NUMBER BETWEEN 212 AND 9.”": 


@ IF. S34°2° DR 6Gara THEN PR 
? NUMBER? t*: Ga 


& 
@ LET f=VURL SS: IF £433 FHEN 
8 


NWitd 


zu) 
ZEIAM A oe 
98 


4 TM te36 ZRAW 4ANOMPOMe 


gam 


LOC=LOC+P. cc Fo ¢€-P 
LET LOCHLOCS : FRINT “THE 
DOOR SLICES BACK SLOW 


IF By="" THEN PRINT “SAY WH 
“3 60 TS £ 

IF 6$¢>"PRSSUGRE” THEN PRIN 
CAN'T Seay THAT!" So TO ¢ 
IF LOC=15 AND NOT Of73 THES 
oF edo HAVE FOUND THE CONTS 
ANC RAVE SUCCESSFULLY CONP 
Db My MISSION. FRE CONTACT ist 
HE TRALIH ORIVER.": GO TC 


& 

25 IF LOoc=S SR LOC=6 THEN PRI 
“THE TAXI DRIVER SAYS SOMETHIN 
& VERY RUDE TS RME.”: GG TG Cf 
S239 PRINT ‘‘“HSoBoESyY _SPPEARS FO wu 


TUT fal mt te Cd 
fy-des ORMRD 
oO 


SO en LEY 


OHS 


AITO CY 
Weve tity 


i] 
8-880 
mr 
mm 
44 
10 
Te 
7) 
Dre 
ir 
(fh 


ner: LET BSNOT G 
“S°*> LET LOCSsUAL 


LET OB=O: LET BS=0: LET GUe= 


@ DIM O(7)I: BEIM OF (7,433 
@ RESTORE 69695: FGR F=P TO 7: 
D 08 (2) AS: LET G(ZI=VAL AS: 


A 

xT 

@ ee WALLET, °° 
CHET 2 Sa 5 “BLOWTORCH 

Fg oe Le an They SY SAY . “URITTEN CLUE” 

"2G", “CASE SF MONEY * hy tee 

33) PRINT ° ‘TEE 2a; INK 6; “THE 

WRITTEN EY NEI? PELLIN 

crt" a nat PRESS An’ KEY TO STS 


7B Apa P: PRUSE ©: FOR Z=50 
GSEErP .81,2: BEEP 
O1,zZ2- =) BEEP .O1,2+6: NEXT Z 

To RETURN 


wn Mao =o 
‘S208: Bee: 
fe == GMM > Gy IGT 
4 
Ge 
~ 
m 
4 
= 
i) 
~ 
Md 


fy 


m 


> 


“yO 
9. O84 
wf 204 
PI i< 
~ fy 5 
nies . 
va : 
= 
a] 
ji 
an 
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2909 INPUT “RARE YoU SURE? 
YeN'; LINE @&: IF ags"” rs oom 
THEN GO TG &599 Doo of D 
6310 IF AGiPs="v™" TREN 60 TO SEs 
Pt 
S029 Go To Cc This is a masterpiece program by Malcolm 
eae AUP nee bebe WANT TO PLAY Young which will well reward the time it 
THEN Go TO 3609 Re TSE aE ae will take you to type the whole thing in. 


soon aN mage THEN STGP 

@ This graphic Adventure is based around the 
maze routine at Lines 1000 to 1400. The 
routine starting at Line 2000 handles the 


graphics. 


When Malcolm started writing the program, 
he had intended it to be simply a 3D Maze 
program. However, once he had that up and 
running he decided he could make it a Lot 
more interesting and the result is here 
for you to see. Full instructions are 
included. A word of warning: The program 
generates mazes which” are extremely 
challenging, and difficult to solve. Do 
not run this program if you want a game 
you can master in an hour or so, 


2 REN ©1983 Msalcotm ‘Yaung 

i@ DEF FN Fix} SINT (RND*x1] +23 

£2 LEFF set=a 

B& 2O SUB SABO: REN instructic 

2S BORDER &: RPRPER SS: INH GB: 
S 

S82 62 Siie i886: REM senerate & 

SH GSO SUB SERB: REM 1anhitaiaasiase 
¥Yariables 

= Go To 338 

S22 NENT 3 

S@ REM main driving reutine 
Liza LET K5= at es IF k$="" QR 
ke="“3a" THEN GO i182 
47208 LEY oFfF= otha" re? y—~ CK HH" IV eS 
HIRSH") 


420 F <121 —d ei F 4) 
“ THEN GO SUB Sear 
a Zee LET eet a i ~) 


y+ COCKS" r°1L eT FF H=3) - 


-~ 


MeO Re 
tlie 
ih 
mn 
4 
2 
U 45 
hans 
1% 
1 cc 
xs 
170 
in 
=~ 
| 
tu: 
“a 
+: 
~4 
ad, 
> mM 
Zs 
r 
m 
+ 
fa) 


“Wd 


LET 
g-{(F =334¢(F =13 
SF meer tes =CHR$ 3225 THEN 


us 
IF msipyl,exi3>”".” THEN GO To 
og g4i=Py AND g2=Ppx THEN GO 
6a oF kK$="e" THEN LET re=i-re; 
ZET X$="“F“: BHA TH 3248 
852 IF KS$="*y"* THEN GO SUB Foeen 
_26@ art AND kS=“"d" THEN GO 


_218 <a, (3) AND kKS="t" THEN GO 


4) 


mf 


Saggy 
g 


SUS fie 

220 IF &S$="S” THEN INFEST “Ss 45 
BwWant to save this game?"; LINE 
ae. IF a$=“y" THEN GO SUB 75e8@@- 
= - 

232 CLS 


242 PRINT #@; INVERSE 42; “NORTH” 
AND FH1;"ERST" AND Ff =2; “AQLITH" 
AND f=3; "WEST" AND fad; INVERSE 
3; “7 FLASH 1; “REPEAT” AND re; 
FLASH @;TAS 325, “Energy="5 (2323 
25a BEEP -1,1@: GO SUB 2e8e0a 

260 IF INKEY $=" AND (tre#rlk THE 
N.. LET k#="F": GQ TO 135 


S@8 REM end af gabe 
S28 CLS 


BEA PRINT ATF Aw, A> "You haye ste 
Feog to death... 

S38 PRINT ““Yaur bones titter t 
He waze With these of MENU Aether 


int 


S4@ GO To 4634 
5aa REM Finish 
SDS PAPER @: INK 7: CLS 


78 


614 GO SUB Si6@: PRINT AT 4,8; 
G2e FOR i: =40 FO 45 STEP .5: BEE 
2-2S5,i: PRINT "“Wett dane! You & 
72 3s tiv: NEXT 3 
<=5 FLASH 1 
S32 PRINT INK 58; "You accamptish 
the task With” 
S35 INK 4 

649 IF t (1013 »2B@ THEN PRINT “3 
Great amount oF SkStL.’ 

B58 IF 1((10) <2@8 AND 1 (4383 5188 
THEN PRINT “wett deserved merit” 
S55 IF t(18) <1@@ THEN FPRINT "a 

CaSNSiGETSDLE amount oF LOR” 
S68 GO Fo 4642 
2900 REM Maze Generator 
ig@e PAPER @: INK S&S: CLs 
“The Maze can take 8 cans 
ietime ta tanstruct Fa it 
Sdvisable to nave the : 
e 
= 


Te i] 


a 


(ti 


MazZzES Storéd On casse€ 
Z8@Qd PRINT ““"“Ptlease ent 
SMENSIONS AF your Bere - 
it Has 2 Widthbetween 34a AND ‘fae 
and 38 tength between 28 AND 186 


3RMAS INPUT “Stescsicd toa Caz ta SE 
STORE 3&3 Gameanmswer turns? :-°%; “LT 


! as 
12e6 oe a$="y" THEN GO SUE 7688: 


2640 INPUT “Enter Width afr Maze: 

OF Ag LEY w=INT fwrd)d): FF wits AR 

¥>5Be THEN GO FR 18418 

1928 INPUT “Entér Lenath oF Maze 
°st: LEY teiIny. fl4277 TP it3182 6 


FR t3;50 THEN GO TQ i1€26 

3839@ LET s=IWNTF twit 73) LET s=i 
F {S4871G6) DIN tits. OM disi 
3232 LET s=s+INT_ (RND#S/31: LET 
t=INT is’6@): LET ti=(s-t #62) 71@ 
@:> LEF t=t4tl 

iG@S3S POKE 25672,@: POKE 23675 ,€: 
PORE 23672.0 

2083S PRINT *’’"Ptease expect toa 
wait at teast SpPpraximatelty “;t 
;“ minutes” 

2540 LET mewe24+1: LET m=tle244: & 
Te HEinN.M) 


73 


i650 FOR i=i TO m LET Be Se he Be 
a. t3 LET mMSein.:2} =" = NE “a 3 i 
18683 FOR 2=2 FTO m-3t: LET msfta,it) 
Es LET (Reta FRAT oO NEST 4 
2878 LET An=2SeINT t(RNDsil—-2333+3 
3262 LET mm =-2* INT (RAND # (tw -2I3 43 
14980 LET m$tnn,tmi =“R”’ LET £=03 
Li@S IF msinn—- -2, BHi=" “ THEN GO 
72 121a 
1i3@ IF BS (NnN4+2,%m%3 =" THEN GO 
TR 12322 
$3228 IF mes inn, mm-Pr =" “* FHEN GO 
TO 32238 
2330 IF mSTAN.MWtS =" THEN BO 
Fro ifiw 
2349 IF K-1=8 THEN GO TO i428 
1158 IF 9dtK2=3 THEN LET nnannti 
2368 IF dtki=2 THEN LET nnanm-t é 
eos IF d{kKi=3 THEN LET me =HmH+l 
2368 FF dtki} =¢ THEN LEY iis =nrms—t ft 
as 
Zi98@ LET k=k-1 
2E2Q8R CGO FA AtkR 
ARAB LET La =PHINT {BNOSSL 4S 
E320 IF ti=8 THEN So TO i2i8 
42382 LET di=INT (RND+434+1 
f246 IF dies THEN GO TO i288 
325Q@ LET s=-142#tdi=2) 
1i26G@ LET t=a 
22708 GD TO 1323088 
342858 tleEYT s=8@ 
1290 LET t=-i72+# tdi=4} 
13G@8@ FOR i=2 TO tt STEP =} 
1318 IF mSFinn+-S ¥1.MM+tsi r="R" TH 
EN GO TO 12168 
2328 NEMT i 
32308 FOR ££ at TO: tt 
334@ LET BS IARIS £2 LER EL SEY OTE 
i35@ NEXT 
4369 LET nn=nn¢es€ti 
3378 LET wSm=mmaetsett 
4386 LET k=k4+i1 
1393@ LET t frei =i2 
14008 LET dtfk3} =di 
2418 60 TO 1168 
1428 REN na. aF doors 
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{425 LET Ad=INT (tft) #1 FS) -2e52 : 
EY st=ndia 

2308 LET tr42 =m: LET titsi=n 
435 REN hi cde objects 

44@ FOR o=i TQ 4 


45m FRR i=]3 FR st 

460 LET LsFN er sisBa-Biseds LET ¢ 
PN fc it(#)1-3241: LET kR=FN £ (Sls 
2 


nal 
+ 
ta) 


a TF mgstt,c<s"B" THEN GO To 
4 
= LET m$tti,ci=CHRS (45+kn}I 
NEAT i 
NENT o 


REN hide® Fead and viltittsins 
For o=5 TD YY STEP: 2 

FOR i =i TO st#3 

EET teks. r’rtis) Si e235. LEFF 4 
rt t42-Slsea: LET kn=FN 5 iB) % 


IF msitt,c)i32"°R" THEN GO To 
LET mL, Coane t483+kKkn) 
NEXT 


IG ESLO LOLOL” EC EO LOLOL EC LOLG Ii) 


LET t=FN rit tS) —-33 42: LEF € 
rit t43—-33343: LET kKnN=FN $F isizx 


fhe ford mt, fit fwd fmt foalt fait foolt YY food alt uct fk foalh foal Paste fash ff fed oct fad fact prod fll tt foo fro ft =) be a] i ba i ba 


5 

QB IF mstt,tit:"*R" THEN Go Tea 
io) 

@ LET msil,ci=CHRS T4RB3KH2 

® NEMT 2 

@ LET MEE LADLE URE AR ere 
$#FPHN ofr (8S) #18+a 

@ REN hide Keys 

@ FOR i=i TOA 42st 

@® LET t=FN rit{S)-4i3 32: LET ¢£ 


eft (43-4132 
A IF eS(i,ci<s" “ THEN Go TO 


ISCHRS 126 


AOZIOUOAGUORSs ZOOS Ms ZA UU BOOT 


a 

2 

@® LET msttl,c 
@ NEXT i 

S LET set=i 
e LET I) eat 3° eo eee ne Ss 


Sod Medd mod DN EDU CS TD AN 4h A SYD 0 dT) NAS 0 OT A) 0 OT 
sana 


PV) ba fot fee oo pk pba 


B1 


1730 INPUT “This maze toak “j (ti 
ME," sSEcaNndS to Penereve ,weute 
you Like t@ SSavVE st PF vVTrurre 
user"; as 

474a@ fF agii) ="y" THEN GO SUB 75 
Aw 

i75@ CLS : RETURN 

SOaBe@ REM disptay vi 


20819 BORDER 1: PAPER. @: BRIGHT 1 
2820 LET x=24: LET y=16: REM wai 


28¢0@ LET LgaPys Tt TFESIOtReai) a4 
28523 LET lx=pxe( F=2) -tf=41))} £4 
SG60 IF me(ty.,txi<c"B" GR meily.t 
MN} SCHRS 1205 THEN NEXT 3 

SQ65 LET dt=tme(ty,txd=" “2 

SE7ra LET vae=i-1-ti>s6): REN max 


uM YWIeWING distance . 
Sa7r5 IF NOT vw AND mSECLY,.LxXI "RR 
FTHEN GQ SUB 25@@a 
28608 LET wx =vxex: LET WYyEevVN Fy 
2ascea FOR d=8@ TO vw: REM divaidins 
Fanets 
=iae LET K#=eSS-ds#xNs2 

Z414€@ PLOT ¢d#x.0d#¥: DRAW B,17S- ty 
233 42: IF d= in THEN DRAM A, 
SLI15 PLOT dtXt+1,de#y: DRAW @,175- 
fue*d7 x2 


Be 


2128 PLOT 285S-dex,i78-d2zyu: CRAY 

@,-f1FS-ysled): DRAV —-h.2 

2i25 PLOT 2s4- dx ,i?7s-d#yu: DORAN 

S.-f175-yse2s+d} 

2130 NEXT d 

21483 FOR i=-@ TO vw-1: REM draw # 
Zits 

2isea LET iy=py4f (fF =BI-fF HARA sx ES + 
Sisa LET tx =pxte CF =eB) -(F Hd. 1 472+ 
w BD: 

237Q@ LET SERS CUMS ERSTE S =423 ,ix 
—f{Froii+et( F=sS 

231735 LET iualt=(tdge"H') : LET tds 
=fd$>"R") 

21850 LET SS Se RT Serer Aa? a hy =G@3 5, tx 
4#€ FHL} —{LF =S 

2398 LET ol ee TSS LER Cer 
=tdgso'H'? 

2285 IF (lereradr2 THEN GG SUE &= 
a 


SF GO TA tdrz772E2208 
S208 PLOT i fX,i FY4UFNOT twslt: & 
Sit x.,yvsetlwatta 
2205 PLOT ifx.175-tistyustyeNOT twa 
Lti: DRAW x,-(y¥twatlt) 
2207 Go T Farx28422i8 
22319 PLOT 255-isx. i SUF SNOT creat 
L: DRAW -x,yu#trMmalt) 
S220 PLOT 255-ix,.,175-fixy+ysenor 
rWSLELI: DRAW -x,-tyserwat t2 
S238 NEXT i 
224@ ENK 5S: LET p=5 
2S5@8@ LET v=255-rp: LET €&=(28S5-LDs¥ 
4%} 4p 
S2S6@Q FOR t=i TA p-t 
S270 LET K={wKMFel€ #11 -V Sl 
2S6H PLOT vel,@: DRAW 5,twy 
=3S38@ NEXT t 
2318 IF dt THEN PRINT FLASH 15 CG 
VER 12; AT 1@,15; "BIR"; AT 11,45; "EE 
SS208 IF NOT re THEN RETURN 
S28: LET rfr=32 
2338 REM check far repeat 
2348 FOR i=@ TO 1 
2359 LET De Si ot A eth 4)) €i>- 
LET rFNR=PR+ ECF =2) -O F =42 3 #i 
2S36Q LET r=ars(mM@&(ryustfee)—-(Faar, 
FMREUP HSI —-€ Fed 1 =" sR 
SS7G LET r=ercxsxt(matryu-—(F=ale( F=Hi, 
TrHm— OF HS) + FHF =H=2)) oe") 
SS38Q NExwT ¢: RETURG 
es REN pds daar 


24208 IF tdr THEN PLOT i 4x 493,32 


2425 IF tdr THEN PRA) INK BP. 13> 
c— fi FY H+ H#21 #2 

eo IF ¢dr THEN PLOT 2SSS5-fisevsy 
3,1 24+ 72 

+42X IF cdr THEN DRAW INK 6;€8, 37 


A oe too 
tse 


RN 
acer er 1B@,188+k:> DRAW £,e,-F 
= * a 
2430 DRAW Kv2,5,-K#1.-5: ORRW -k- 
-S#2-k,@,-PI: DRAN kr2.5,*% 413-5 
3481 RETURN 
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BEM dansr 
PAPER 6: INK @: 
a ee AT 18, Pt SB “oO Co RR’. 


5.18 

PAPER @: INK S&S 

RETURN 

REM enter 

IF ( (323 THEN GO To see _ 
PRINT AT 2,4; FLASH 1:5); “S00 
Oo KRey-na entry: 

1 a iden on rae | ey 24+ Fs4¢i: LEFF 
y— fF =G1 +6 FH=13 

“BEEF 1,-2@: GO TO 106 

REM Faund centre 

IF pytsInNT C(tLitSivS) AND Px: 
Pinas vate THEN RETURN 

ck c RESTORE 2oeae@ 

SRINT "The daar creaks Sitar 
OPEen..." 
740 FOR 3 =-3RB an —P@ STEP .8: & 

bis 2.24 NEA 

@ FOR i=i ta’ FN frt8}: READ te 


PRINT “And there in the cer 
OF the rcrcom lies the uLLi#=S 
oat..." “TRB 2; t, “3° 
‘““Bnd now wou Have te 

this” ‘*"back to an Exit sist 


LET mB (Py ;px? =". * 

@ LET g1=FN ett isi): LET a2=F 
fl (323 

S LET m$(gi,gei=s PY 


re abe b=FN rf (i@@?: CET ttitis 


a SR INT “"Yau hare alsa Fauns 
¥Yitamin’ “pitt boosting your 
rau by _ “ib 

@ SORDER @: PAPER @: INK 5S 

@® FRUSE @ 

@ Go-To 228 
"3 
ket to Tim 


> 


WWZeOAR NO WEA eROUMWR 
SS1DAGUAS SVERGTIOS 


MoD PT DMS sd ad ed dd OU OS OO ATT 


oe PUTT ee Te se TO py tee) fy Aa at 


MOZNVE 
I 
« 
-| 
Mh 


Ui GG i 
a 
u 
ia 
Zz 


i) em as tO 


Ve) T,) Se 
“nd 


i 


Woe ty Oa 


MUO DG) Oy ms Cd od 
"ES 
OG 
B 
= 
q 


As PTO AONE WeRIDM™ Oslerms) 
be 


sage ey ee ATTA) PAD Us 


oc 
= 
“the answer 
@ DRTA “sa 
n 
i 


Cae “Ce 


eternat 
ttiiean mar 


17) 
Le) 
La 
m 
117) 
lad 
le 
1239 
1 Uh oy Laan 


B4 


10 LET J=CODE mg ipy.pxd-48: LE 
A=INT tjriei 
@ PRINT AT @,3; INK &; “The de 


has : 
: iF t (23 THEN PRINT "Your =S& 
u 


Cm YM) Mer YP) 


BS a DS Ch ie be YD mm Ch) ao 


mM KEYS APEHS Sao soar" s 


3 INK SS; “Your Key doesn” 1 Fs 


é a 
PRINT AT 206,08; "Y¥cur key Fat 
Da You Want tea unteck this 
ev? Cy eras? wren 21,138 
IF INKEY S$="n" THEN GO To se 


IF INKEYS<¢o"y" THEN GO Te 3S 


GO SUB 2708 
LET Fate =j-tnx#ie: BORER <= 
. - s 


IF Fate=38 THEN GO TQ 27ee 
FRINT “INSIDE, there iS..2.-. 
-3,3: BEEP 1,18 

GQ TO Fatexe easaeae 

REN emety 

FRINT AT 3,5. "NQTHING! "7 AT 
‘Some has been here befFare ¥& 


GO TO {fRND?.S}3 #8@4+35228 

REM tose key 

PRINT “*"Yaur keu is stuck 

€ Leck! ""*"Doa you want ta SPE 
Some time trying ta get it & 


4@ PAUSE @: IF INKEYSio"y" THE 
GO Tae Seee 

Sa@ IF tf621 THEN PRINT "“GQHR,it = 
Uidn’t take a second using & 
F Casere >: LET (tS =t 163-4: LS 
i=1i: GA Te sige 

“OK, I tt wait s homen 
t White yau try.” 

Save PAUSE 7@: FOR i=8 TA 1B4+FH 
r{S@i: BEEP .@81.RNO#SG-15: NEXT 


Si8@ IF RND>.7 TREN LET Ufisi=ati 
a3) -1: PRINT “It wont come Ovt. 
yo 
S 


g 


anee i 


“BOBO 09 


PE CARH Ea a) hin Sh a me 5 


m 
miu 
a) 


LYLE ULLA ba be 


ayer ele 
ee -e 90 


2 9 


Pet 


fea o- Tl. 


SO be 


Me Bek Ca) ee Uy ooh Lag] I) 
, he 
oi 
ict) 
0 
ys) 
H 
Zz 
«4 


u’ttl have to teavwe it.“: Ga To 
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S285 PRINT “You got iti; “but “m7 S568 IF INKEYS="n" THEN GO Te <= 
312980 PRINT “You wasted “j;i;' Ene 2a 
gy uMmits ain“ "your attempt.": & | S565 IF INKEYS$s3"y" THEN Go To 3 
SY i1(2223 =Lfit—-s Sea 
Szeaa Goa Ta 4¢gaa SS7OQQ CLS : FOR i=8 TO 18: BEEF . 
3290 REN taser | 25.i: NEXT i 
S580 LET u=FN fF (38142: PRINT AT & SS68 PRINT FLASH 1; AT 2,9; “CONGE 
PSS aAStiti“"“with Eenaugn EVERYREARDY STULAT IONS 2 
batteriesto tast “j,uj* uses!" | SSo9@ PRINT ‘“yeou ase 2 meed mirc 
Sais IF L652 THEN PRINT AY 3,8; ° m COnmVAInCING Far this Gfhisdabtie 
Snmather weaPpon,as it"“s the RovtESt th 
33415 PRINT TAB 322; FASE CTAB 2 2m@Q araund inarmourments." 
6; a" S6Q0@ IF lt?) THEN PRINT ~"“Yoau «oc 
SS20 PRINT AT 9,8; "A taser hSs = 3° t want to carry saroaund tia aF 
Bi TEC Facttiur af B Da you want 7 these S60 You can have thecartri 
2 take wie dges for free. 
3330 EF INKEYS$="n" THEN GQ Ta €s6 S619 PRINT "“To use this weapon, 
Sa Sim st your target Bend Squeeze 
3335 IF INKEY$<3"3" THEN Go TO S fhe key “a” 
S35 S620 PRINT “"You can use thit we 
S334@ IF NOT t{63 THEN LETF Litais SPon "zl t7i305,° tines” 
{£133)29: GO TO 336Ea SS0@ FRINT *~ INVERSE 1; “GOVERNME 
SaS8 IF LiGs THEN PRINT “Since wv MT WARNING: THIS WERPON CAN BE & 
ou already have 3a laser yau jue FNGEROUS FOR YQUR HEALTH" 
%: have to take the SaSastteri rete — Lt{iSsrist(aB3+4a4: LET ttz7 
es" J+ =t 2 +U 
SS60Q0 LET t(tGre=eatl(Sieu: BEEP .2,3: S660@ GO TO 498@a 
SEEP 2,106: BEEP .2,3: BEEP ..7; } S696 REN transporter belt 
za | 27885 PRINT AT 2.,.6;QS(33);AT 2,8;° 
SS7@ PRINT ““You are mow the pre another "“ AND ¢ ¢63 
Ud owner OF SdisSPpOosable “LEPPY~ ~Fi®@ PRINT INK 4; PAPER 2;AT 4,1 
Laser“’“guaranteéd for ";lferms” 3) Re ire S.7; INVERSE 1;" ==: 
uses: f=s=e 8°; FLASH a, °T"; FLASH ®@; an 
S38a Go Ta 42oaa ERSE 1; “8 ==:4: ==-“;RT B6,25;° 
S4aQR REN demateriatiser S720 PRINT “This enabies yoru ita 
S500 PRINT AT 3,5;Q8 tS}; AF 3,8; nyPper-—-travetta 8a different part 
Snother " AND titi Or the maze BbUt You AHSEVE TG coRt 
351@ PRINT AT 5,424;"'; TRB SS; "= rat where and if you stap in & 
3 "TAR 1D; "yy" watl you Witt bE instantly suFF 
S520 PRINT “’"“This enables you te ecated" 
Sisintegratesotltid watts ian tid SFSGM LET wsFnN (3) 372 
BLSESTS and taocharcesat emRB Vitlas S748 PRINT “"This if anather mad 
m you Bay meet." 2rn"" “disposable Product and wue 
SS30 LET u=FN 7 (6) +2 it be discarded after “;u;" uses 
SS408 PRINT “"“This ané hes “Fu,” or’ “transport fas ture May orccr 
CSartricBes"'"QHI2I “"*heas BH “EC” - 
*“Factter aFr Ag" S7SQ PRINT "98 03);" has an “EC” 
S550 PRINT ““Bo you Want ta care _Factor of §&" 
¥ this along?” S760 PRINT AT 2@,3;"Do you want 
72 put this anz” 
86 87 


aan GP INKEYS="n" THEN GO TR €3 
= 

sone IF INKEYS$<3>"u" THEN GO TO 3 
S799 CtS : LET tfSreau: LEFF tt13: 
=1(13)+5 

S6@QQ PRINT AT 1,8; “S0OL0C! Ta that 
daring person Sitting benin 
3 the 2x SPECTRUM." 

451@ PRINT ““Use this bett ho mo 
r@é than “j;u’*"’times."“°" "Fa jump t 
G hHYPEerdrive Press the button we 


Se@2eQ FRINT ”° INVERSE 1; "THE NHANU 
FROTURER WILL NOT BE RESPONST 
BLE FOR IMPROPER USE OF THIS TRA 
MSBPORTER SELT 

SSS3@Q FOR i=3 TAG 5S: BEEP .7TS,1i: & 
ExT i 

SB4da CGA Fo 49088 


U) = 


2 . 

S38 PRINT ‘‘“This key gives you 
access tea anydoor in the maze! 
3948 PRINT ‘““Yau can use it eS & 
any times as You tike.* “This ke 

Ss has an “EC” Factor oF B&B” 

SQ5Q PRINT FLASH 327; ‘De you gant 
to carry this Stong?" 

BS6Q TF INKEYS="n" THEN GO TO 2 
+e 


fy 


WW) 


3380 FQR i=1 TO 1@: BEEP .1;5: F 
FUSE 19: NEXT i 


281@ IF NOT tt9) THEN LET 1tf133= 


#820 LET t1t9) =1 
2a3e GO To 4ane 
2898 REM Faodfenergy} z2 
2i60@ PRINT AT 2, ia: *Foad! 
#1108 PRINT vou ant GckKLY rush t6 


S370 IF INKEYS$<2"y" THEN GO TO 
Q 


he Focd.”™ 
4320 LET amw=FN 7 (25) +18 


PRINT AT 1@,3; INVERSE 1; "FP 
any key to Find aurt'“;AT 7,8 
© FGOGd has Given yau “: PRLS 


@ IF aw 2o253FN rt(Si THEN PRIN? 
NAdsaBgestian! You dan’t get Be 
Energy Paints Far that:": BEEF 
-2@: GO To sa9ee8 

= PRINT am;‘' WValuaseble energy 


Ler LTADAHzAC TASS +aH 

GO To 4a9@a 

REN tressure 

RESTORE 4488 

FOR i=1 TQ FN rtSi-: READ ts& 
NEAT i 

PRINT AT 2,3; 98 (5.\;AT 2,17; 
e'"yY OU have “7-5 

LET am=FN fr fami+S: LET en=i 


“Tt cames tao the vatit 
“Jam “treasure Points and 
‘SG \€aeter oF yen 
PRINT “"“The tresesure may he 
ui ta bribe the E€vit bees 
t hide in these passages.’ 
RINT ‘"“Oo you want tea carr 
st , 


ad INKEY $= “ THEN GO Ta 4s 


de 


3 
o 


fs fa fu dis fi 


fies 
BG WU OUR TUES ts 


no Cf 


) WS hI OH th» 
ATHeCRU*H.O 8 SHU9ER 
a 
3) 
H 
Zz 
| 


$5 610 fi 2 do 
LS Ly 


Va cate es 
SJ) 


03 


@ IF INKEYsiae"yu" THEN GSO TO 4 
LET (Uf235) =L(i3i+ten: LET lit 


4@ PRINT "'¥our "£6" 


4420 CGO TO 4386 


448 DATA “struck goid)?",68."R_¢ 
NeSt OF Sibver”",SO,"A sack oF 3: 
Zaming diamonds".dao."A plait: 
Aum sword ',2G,"A jar of rubies". 


ve 
fn 
210 
ot 
Di) 
m 
Zz 
% 
v. 


vwaiieain 
258@ RESTORE 4588 
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$530 DATA “An angry". "A Crazy 
A Fierce“. “AN uatly". "A horrikt 
-"A giant"."A smelttyu". ‘RAR hung e 
452¢6@ FGR i=i TO FN ris): READ gi 


> NEXT i: RESTORE 4530 
4538 DATA “gorilla”, "demon”,"d 
aor os “t{rarle”’, “werenartr, ‘andra: 


ns 
1540 F FOR i=1 TG FN ff{7i: READ ft 
2 


{558 PRINT INK S:AT 2,5; aes" “ct 
256@ PRINT INK i’“that‘s going ¢ 
@ rip your earms aff far waking 
him upi" 

4570 PRINT INK 9; ‘"What are yov 

going ta dar’ "Are yau gaing ta: 
#580 PRINT INK 1/"4~ fFaght "2+ 

bribe’ ‘Se run"'"4- pray he*ll g 
~ ears 


24598 Ep INKEYS$<"1i" OR INKEYS!*2" 
THEN rs TO 42598 

i595 CLs 

4688 GO ‘Ta UBL SEL SRS eee 
$61@ PRINT “You 

#612 IF tfo6) SHEN: PRINT “a laser 


4624 IF tt?3 THEN PRINT “an ant: 


4616 IF NOT (l(6) +t {733 THEN PRI 
NT “nothing, "; 

4518 PRINT “for a weapon.” 

4628 BPr=ttt (7) >B)+.8#1t 16) >& 
duo 2." oe NOT ct THEN LET Pr=RND-e 
4622 PRINT AT 21,13: "Press 3 key 
io bEGIN the Fight": PAUSE 8 
4624 FOR i=i TG S#taiepri 


£ : ET c 

mneerct: BEEP .@5,.108-FN fc (2a) 
2S IF itGh THEN BORDER S: PRFE 
BEEP .@75,3@: LET mc=vSsrR af 


= 

6 

r 

3 IF tli?i THEN BORDER @G: PARFE 
7: BEEP .4,@: LET me=USR inver 
3 

a 

RQ 

3 


2 LEFF & €222 St 233-2 
32 NEXT i: BORDER S&S: INK 4: Fr 
R @: BRIGHT 2: CLs 

4 IF RNB<cpr THEN GO TO 4645 


nen ce 


90 


NT AT 4 p45 YOU LOST! The 
ch” oe oe ,tH'" "has thrown 
Wt 

fm 
n 


fu 
mn 


oP Pe WOOGS-L) 
“~ cum 
m 
WH6 


= nis In the carner 
I others Who had ye 
is maze” 
TO -3S@ STEP -1i: BEE 
bt 


: GO SUB 5168 
6: PRINT AT Ae, 
tru ayainr" 
“ THEN CLS : ST 


“ THEN GO TO 6&& 
SG: "You want*™ 
PRINT “but wit 
F2y you fLeouilan' 
T=H=t(F7I-1: Go Ta 


PRINT “That ws 


Wet elie 


us 
ON 
or 
Kae 1] 
mo 
ok: 
hy 
Ly be 
m 
Ip 
wo 


mcr 


“Do you want t 
IF INKEY $=" 


IF INKEY $=" 
GO TO 4644 
PRINT AT 

bt ape! Re or Rs 


22-5 ‘LET 


ae (LF AT 
dy Wock wi 


# 


eT fa be By Pa fe TY BD 
Mono Vo: 


“ ah rs Jom 


Oi ts 


ie 


AMYUMBS T|MyM 
Bin m 


7 “43 
1 
iW 
ie 
a 


Lams =" fhe. ** 
mMUSt be sick 


PRINT Ret a2 
ve" ’as;* Riel 


. 
- 


(Ti Te > 
oO 
0) 
oor 
aes 
oO 
A 
w 
Q 
gm 


GS 
5 
= 
a 
A 
v 


foi fe eee doers 


ti 


V@ With vou: ° 
S=1 TO 6: PRINT gia? ANE 


= ; ie 
Mog${18): INPUT gf 
: TG 6: BEEP. .2,5: if 
) AND LtS+i) THEN GO TO 
Cc 


R 2=3 70 G6: BEEP 41,5: IF 
i) AND i (Si) THEN GO TO 


Pp ftir 
NAN Ty V+ OCS 


NEXT i: PRINT AT 12.80: "Sarr 
dgn*t understand that Try 
i“; BEEP .5,5: PAUSE @: DIR 
3: PRINT AT 22,@;9%: GO Te 


é 
Fr 
$ 
N 
i 
i 
a 
ZF i =5 THEN GO TO 46sp 
t 
d 
re 
&i 


WW AC fr fs 


MeNI 7 i fiw. Cig mo Od ~ 


RINT ‘““The not so BP tte | 
; By. 


isappears” 
ad i£246)=@: LEFT Ltaspat ti 


0 Te 4968 


1 DM Gee HO OO TNO NO COT Ke 


HN PD WED pe Pe 
TM fone I~ fy yay me 
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4598 INPUT “How much treasure sr 
2 you going to give the “jitssi- 
t¥ 2am 


39693 IF am>a THEN Ga Ta 4 ?PaR 
4694 PRINT “The “;U8i * is enrage 
qd thst you tried to thest him 3n 
ad has"’“taken everything,except 
hatf"’"-“your treasure.’ 

3595 FOR i=-8 TG -20@ STEP -i: BEE 
Se ,BS5<e2>; NEXT. i 

4696 LET teblLtidira: LEFF t=t t2@ 
gL Er m=L td) LET ASL SI 2 >IMN Lid 
4697 LET bLttayod: LET li14i=sh° LE 
FT LTS. sas LEP £4200 =r LEFF Lied) 
=< 

$695 GO TO 4906 

67@@2 IF amoFnN f (2083438 THEN PRIN 
T “The “|; tS$s° atcepts your measi 
UC VaARFering and tetts yau he ety 
ar be more “j;aS(S TA 35" to 
RERVE’ SLIine sic BEER” Zs 2 co” TS 
#386 

#782 PRINT “The "“;t8°"insutted & 
3 What YUGU have” "“offered.gets & 


ore “jJ;a8(S TQ }‘“and st@#eats your 


ara LET o=FN fF (S}: IF oF=S THEN 

LET o=6 

+786 LET tfaS3 =1 0233 -E€.(o3: LET 2 
ia4+354+ io0=61) =@8 

4708 PRINT Fei3% + Ts. 3 

4708S GO TG 4920 

4718 IF t(8)3 THEN PRINT Bsn ac: 

ivate your transporter an aS te D> 

DSsh! Youre sway!”“: BEEP i, So: GS 


4711 FOR i=@ TOG FN £i4@341@ STEFF 
»«S: BORDER FN rt?}: BEEP .@2,i.: 
LET t¢12) =l111)-.5: NEXT i: Sitar 
2=68 TO FN 7£(5@): BEEP .@1i.-i: WS 

ExT i 

4714 LET r=2-FN fr t31 

42710 IF NOT - THEN GO TO 47308 

4722 PRINT “Not fast enough! ""ts 

,""S afe® Pretty fast" “sometimes 

:*"* "You can anty fight now." 

4725 GO TO 4614 

#735 PRINT “You made it! Why are 

Bt you" “representing yaur cour 

iey inWm’’“ruaning?” 
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i) 


RINT “AYTter B&B QUICK IB He 
rint around the tarner ye 
“*PuourselF back in the Se 
ce" 


ys] 


Pp 
Pp 
d 
3 
PRINT AT 20,0, “After you he 
o 2 rest.,press 32 sey 


BEEP 5, -5@: BEEF .S, -4@ 
IF INKEY$="" THEN GO TO 475 


GO Ta 490@ 
i=@ TO 3S: PAPER F 
2A ,5Q:. CLS y vBEEP ~ 


TT 

PSBPER 6: INK @: CLS 
PRINT “It didn‘t work,the 
is stiit therei” 
LET w=FN fF {(1@3: LET ifi3a3 =i 
ay 


PRINT “You wasted “j;m;™ ene 
mits" “trying though.’ 

TO 4578 

@ PRINT “GRKiwe‘tl leave it.” 
PR=T-:) Ga a B40@: REM wait 

2920 BEEP 23 

4330 ECRDER. @®: PAPER @: INK 3: & 


— 

494@a LET BOLE BPRS” ue 

Seaagea REN nap 

Saas IF tim) cag THEN PRINT INK 

AT @,8@; "You don’t have enough 

asure ta pay the Fee. no MOHE 
map.” - BEEF 75. -@: Ga TG 4, 


BORDER 5S: BRIGHT @: CLS : FP 
AT 4,3, FIWR Gi * +e HVIORTHES + 


IF INKEYS<o"" THEN GO TO Se 
LET mx=(px-6) ¥(px>51 43: LET 
(py-Bastey>5i +i 

at mx+3103>L(43 THEN LET mx=t 
CF MY+t1O>tiSi THEN LET my=i 
@ 

Sa een ds=mSs(py,Pxi: LET meter 
FR peta taatt TO myt+i19: PRINT Ib 
; + 

© FOR c=axe Ta ariie 


a & wh 
vo -oU 


ta We 
eas oy 


| "j 


HP PS PwC ev fs 
= 
o 
“2 


mM 
aN) 


ips ope 


jue 
WiKi -SuUxXMsw 


(an 


i 
G 
o 


fi 
OL SW sf been ed od 


BIDMC ahs sa IOI ED ON 


r 


Ze Im 
48 of 


AL Ue STU Le 5 
ROG OS Oey sag a 
iM) 
19) ou 8 g 
= 


LU} mf 


OM i Be 


CL 
& 


33 


Uy) 


CODE ms(t,cir+éd6 AND CODE 
26 THEN PRINT “BI”; : GO 


a 
$fi,c3}>"5S" THEN PRINT F 
NK oa te £ GO TQ 5128 


at PRINT INK 32S" 
EXT Ll: PRINT HK é: TRE 3: ° 


= 

SV=tlisye-2: LER 't (he 
3-10: REM pay F108 fee for 

Pp 

iN 

F 


an 
1 | rae 


F @COZZDRPHR 


‘mas 
0 
Pa) 
H 
4 
a 


Ma-: hin 7 


mn 


-~9+# 589 1IG 


bh 


YsPxi =d$ 

K 4; BRIGHT 1;AT &G., 
nergy Le t=": L011) ° "Treasure 
intee JLB "You energy cone 
tion per move is “;LIisi 

@ PRINT INK S;AT 17,0; “You 3F 


a: 
@ IF cen TREN PRINT inY £&:08 
s £263. 5% AOets teFt” 
w@ IF t > THEN PRINT Q#i2);ié 
“" shots teFft™ 
2 IF (8) bias PRINT INK 53:98 
2 


(S} 
IF (9) THEN PRINT INK 4; 9% 
F (£12) THEN PRINT INK 5: “ 


F NOT (Lf1l2I4€L CG 4¢L CFV +h 65 
) THEN PRINT FLASH 1; “Noth 


IF INKEY$<i>"" THEN GO FO S2 
SUR SSsaa 


Ga 
PAUSE 5@6: RETURN 
PSB IF MOT 22 THEN RETURN 


OND — ee ON eS Oe 


OPE tye UL Uy 


Pid fi PLA TTS So Rel fo fas pat ener aireirerste area 


hy Wwe Week G GMa soo 
tn Q 0 if ; 


MNT + fo 
“sf 


i) 
& 


Be Shih idl “The ENTITY is “Ss “NORTH 
= AN P¥I91; “SOUTH-" AND pusgi., 
ones PRINT “DEST AND Px>92; “EARS 
? AND pxig2;" of here. 

SS2a Reh key 

S@@Q REM ke 

BB18 PRINT ar 34,5; "Yo have fois 
2 oa keyi" 

SeSe BEEP .75,14 

Seab@ IF NOT t (128) THEN PRINT AT 

21,9; "Do you want to Pick it up 


SBeu IF ttises) THEN PRINT AT 21.2 
‘DO YOU want to swap keus?* 


94 


SQSQ@ LET msi(py.pxji=" “: REN Spat 

B@GQ IF INKEYS#="n" THEN RETURN 

ca IF INKEYS$<s"“y" THEN GO TQ €E- 

coed ae 

SATS IF .(485)1<41 OR NOT ttieak TRE 

M LET £ €13) =£ 1233) +1 

S282 BORDER 2: PAPER 4: INK @: & 

SAGA LET Key=FN rlSs: IF xKey=tisZ 

=[) THEN GO TQ 628992 

29a5 LET t(123 =key 

51868 ap 12,3: BEEP .4.,.13: BEEP 
a gi EEP £5,128 

Bijia PRINT AT 41@,2; “you Naw RAVE 
RB KEY MARKED “;Lt(a2) °°" Guard + 
i ciasety your life may a 

Spend on it. 

Si2za Goa SUB S4AGoa 

6i¢@ BORDER @: PAPER @: INK S: £ 

Yaa 

S158 RETURN 

S580 REM transporter 

SB541@ LET px=FN ritita)) LET pPYysrF 

N ctl i533: LET F=FN coc tai 

BS52a FOR i=@ TQ 1@: LET cl=FN Fi 

S33 -1: BORDER cl: PAPER 7-cl: BEE 

FP .B1L,120-FN rt(28): CLS : NEXT i 

S536 FOR i=1 T0 5 

S548 LET ctl=FN rt683-1: BEEP .1,4 

&S58@ BORPER ct: PAPER ?7-cl CLs 

5S56@ PAUSE 20: POKE 23695,56: Ce 

S578 NEXT i: BORGER 1 

658@ PRINT AT 6,8; “You have nox 
been transported" ‘* "ta 42 differen 
t part of the maze” 

S590 LET t(8)=t(83 -1: IF NOT iLtG 
3 THEN LET t £43) =1(133-5 

S6Qa@ GO SUB &4@8: RETURN 

FaBa REM drop object 

7aes PAPER 6: INK @: BORDER 4: © 
ino 

F@l@ INPUT (“What da you want to 
teave”’'’nBsi “TF “Jos 

7Oe2a IF asii} =" “ THEN RETURN 
Fase FOR i=1 TO 6 

FB4@Q IF g#=ahi13} THEN GO TO FOF 
F7as@ BEEP .1,10@-FN fr{t2@)}: NEXT : 


FRR eer Nl oF , aE x aon’‘t Know & 
LATS i398: S.Try asgain.': GO TO 


78708 IF fiti+53 THEN Go TO F7aae 
rBSa PRINT “But you don‘t have 
29S'°"Try again": GO TO FSiG 

FAoe IF =5 THEN GO TO 71240 

FABRA FPRINT "QKH,say gaondbye ta veo 


ur “4gOtS TH: .5 
7110 LET 1(1253 =t (1323 -e (13 
F1i2Ze LET 1 (1+5? =a 
7138 GEE 1,10. GG TSO Fises 
7i4@ INPUT “How much treasure 2a 
you want toleawe? “tr 
FiSQ IF tr>tti@d THEN PRINT “Yow 
don’t have that much’ “treasure 
_72nS*: BEEP 41,-10: GO TO FAde 
716@ LET t8€iSisettaiss=-tervS: LET i 
£10) = (103 -te 
7i72@ FRINT “Say goaodbye ta “jtr-. 
*" paints ar **’“treasure”™ 
Fise@ IF Litils3<=8 THEN LOT 1153 = 
FiBe BORTER BS: PAPER G Ink S o 
LS : RETURN 
F20@ REN demsateriatisers 
FHeAI@ LET du =pus( fF =33 -CtF=13 LET 
AX =Px+i1f =23 -tf=4) 
Peis IF dy>ti83-1 OR dyu<t2 R dx: 
2 OR dxstids}-1 THEN PRINT "“Sorre 
YOU can dematerialise thisouter 
Wall’: PBAUSE 8: R URN 
P2245 LET ms(dy,-dKi=" " 
gi 2=40 TG SS: LET cisb-FXN 
r 3 
Fes@ PAPER ctl: BORDER F-ckt: CLS 
7=H2¢0@ BEEP .@5,i: NEXT i 
FeS@ LET Lily =ciry-2 
7260 BEEP .5,-28@: RETURN 
S368 REM save game 
7LeeS LET 121) =pg LEE Ades apex {2 


EF tLit33=F 

75180 PRINT FLASH RS AF 16.7; “Sava 

‘ Naze Bata 

752e PRINT INVERSE 2° "Fitenanme 
“MaZe’'' AT 22,0; "Pleate keep Pr 
Seine a key untilthe screen cie 
3 

FSGQ SAVE “maze” DRATA tfd: CLS 
SRAVE “maze” DATA mSsti 

754@ INPUT “YVerifu?’; ag: IF ase: 
“s"" THEN RETURN 
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755 PRINT “Rewind cassette,ther 
PLAY’ “ITF tloading errar then ¢t 
2ee:Go TO 75sa0" 

7560 VERIFY “maze" DATA Lt): VE 
TFy “maze BATA me ly 

FS?rea RETURN 

FSeQ2 PRINT FLASH L2:AT 28,9; “Loa¢ 

31ng Dette’ 

FESD PRINT #@; FLASH 2;AT 1,4; "°5S 
iart cassette cecorder’ 

763@ LGALD “waze” DATA tt): LORE 

maze" DATA mst} 

7EedOQ LET Py=ltisd: LET pret Ce?: L 
ey OAS ty 

758 CL 

-BBea RETURN 

SAQQ REM variabies 

S@i1@ IF NOT set THEN GO TO 5a?7aS 

saee LET px=2: LET Pu=px: LET f= 


REN player peers een in maze 


oa CIM tt131 Lia4j=m: LET 
{5} = 

S@408 LET Lii@i:=20@0: REM treasure 
S250 LET LttisSGi=1: REM energy cor 
SumMmP LION - 
SQ60Q LET itis} =INT (tt fa4} #5) 753 
9 as LET r=@: LET re=r: REN repe 
SQ@Ba LET g2=G@: LET sw=a 

SQQA REN define graphics 

Si@@G@ RESTCRE 8s825@ 

Sii@ FOR i=1 TO 7: READ cs 

Si2e@® FOR e= TO 7: READ A: PORE 
JSR c#+e, 

2iS@ NEXT €: NEXT i 

S149 FOR i=USR “s*“ TO USR “s"4i& 
S2iS@ READ b: POKE i;:b: NEXT i 
Sisee@ LET invert=USR "ss" 

Bl?7@ DIN gGH(E,163}: BOIM e (63 

SiS8@ FOR i=i TO 6: READ ags,e€: LE 
T QSlit=as: LET etil=e: NEXT i 
S198 BORDER @: PAPER @: INK 5S: & 
SIGHT 2: CLS 

S200 RETURN 

S25e@ DATR “a",@,0,35,15,12,12,12,; 
oabe DATA “b",@,080,1258,224,96,46, 
43,96 

52708 DATA "c",1,1,25,1,0,1,1,0 
S2S@ OCATA “d",2@24,192,125,126,6. 
225,126,909 
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B2ae@ DATA “e’,255,129,129 = a> AISA PRINT TRE F;" 
2,129,129,255° Teottch tings 5 ieee Leta 3151 PRINT THO zi cf ‘7 
wae DATA "“k",@,2,3,255,67,226.6 Bisse PRINT TAB F;* = ~, § 
8212 DATA “h" ,24,69,126,63,24,24 eS PRINT TAB 7;"8 EH OF FE 
2 = 2 
Beee SATA OF. S. .64,6,24,197,6,0,1 FF PRINT TAB 7 “Seco” “pm” “ee” & 
2 23 5B5,119,35,1 So a ss 
248,204 Ss 67245; 188! 16, 325@ INK 1: OVER @: BEEP «4.20: 
Oooo Go Tr "3 Laser” 3 a > 3 & ewvyr: so 
tter ray",14,"a transporter beti | 3150 INPUT “Do you Need Instruct 
‘,5,."a skeleton keyu",3, "some tre ions (yrn)?"; LINE ag: IF ag="n~ 
aSsure“.@,"a Key", THEN RETURN 
S4@@ PRINT AT 21,5; FLASH 1; INK | S178 BORDER _ ot PSPER 4: INK 4¢+. & 
_S3; "PRESS ‘ec’ TO CONTINUE.* ¢ | SIGHT i: ; 
5410 IF INKEY$<>"c" THEN GO TO & 9150 PRINT *TAB 6; FLASH 41; "*CbOo 
= pe oS 
Bia BEEP 1.19: RETURN S1is@a@ PRINT 2 ene to the DO 
S02@0Q REN instructions SS OF BOON" FLASH 3; “?"; 0HRGE &: 
S@@Q2 POKE 23689, 282 epea PRINT ns;"*." ; 
28905 INevT “uLiot Before we sta Q230@ PRINT “You have come here 3 
ri, ,please“*“enter your name: ar mM Search of the Uitimate Geat eh 
INE ns: IF n#=""_ OR ng="no" OR n ith ties beyond one of the BS 
S="“ves* THEN Go TO 30a5 * QRS OF DOON at the heart oF the 
S@0Q7 IF n#(1}3>"Z" THEN LET n#(42} onmwel coming taburinth."* 
=CHRe (CODE n#-323 Sl4Q PRINT ‘Yeu geyet geussey th 
3019 BORDER 1: INK 1: PAPER 6: rough the’ "tong deceiving Passe 
=> i" ges ian”’’“search of the right rou 
S050 PLOT 107, a7Re 5550 P BoaT “Throughout th 
2a ioT 1iB7,175: D = - 325 * roughau 2 maze 
2516" Berne een eete there ate "doors leading to an, 
: LOT 127.,.@: ORR 25 — ay i Sdjacent"’ "passage,an ehan Pr 
25 img RAG. BSBA Le25 ese doors may Lie DANGER...ar h 
3@5@ NEXT 6: POKE 236 ope?" 
S@aW PLOT @a,112: paso ose a2ZBe GO SUB &4682: PAPER @: CLS 
Sea?e@ PLOT 7A: DRAW 255.8 S272 PRINT "The doors are tockeec 
S860 PRINT AT S,®@; and can“‘*“onty be opened if you 
SQ8s@ OVER 1 IN =] Passess 3 mMAaAtCHANG Key. .which ar 
S1ah PRINT Vey ” &€ littered around the Labyrinth. 
Bins: paene tee Ste Oe - : 
21% PRINT TRB 73" —_—= oe hed ty Se INVERSE 1 DIRECTIONS 
QLaS PRINT TAB ?:" SSaG@ PRINT ‘“You may use a map & 
song We ;“B FE FS GS nich A Ree cote, SUC rouns sie wa 
SAwad PRINT TAB 77> "fhe™ “see” is an e*’'""pe you ave akenr 
Se ¥ “a” § ~it wiltt alsoshow uP any keys 3n 
3185 PRINT 32 doars"’ “nearby" 
81192 PRINT TRE 10;" ae SAA PRINT “Each time vou ask Fe 
S111 PRINT TAB 1@:” ‘ fr oamap you tose 10 treasure Po: 
S3i12 PRINT TRE 18;" ee mis" 
Siid PRINT TAB i8;" BBi® GO SUB B40@: BORDER &: CLS 
S235 PRINT 
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2a FRINT TASB &; “'"KEY’woards“: &- 

T *F@,167: DRAW INK 4;24,2 

SG@ PRINT ‘“Keys ‘L’ for teft,~ 
For right and ‘B” for back." 

@ PRINT “Key “FF” to step Far 


@® PRINT “Key ‘°S*% to Save gQawe 
"Key ‘E* to repeat. (if you cam 
to Bo tang carreseaer:i*™ 


Pe el oe Wy 


B36@ PRINT INK S* "Each Obyect yo 

Pick UP has its OWN Energy cor: 
umPtion or “*EC* Factor.This is 
the amount of" "“enersgy used 3Fft 
2r e€ach step.” 

SG7@ PRINT INK Y’“You may specif 
¥ the Size OF Mazeto be vUsed,the 
Largest maze witttake vp tao sf 
Minvtes to Producewhite the smai 
i€ST Wilt take’ “sSsbhour 2.252 MInvst 

25" 
SSSCG PRINT TMK Si 'Wou wae save = 


Re Mazes for’’"“future vse." 
$3399 GO SUB 54809 
S40@ RETURN 
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MOVING 
GRAPHICS 
GAMES 
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Gold Rush 


Your tesk in this game, written by Neil 
Pellinacci, is to carry six sacks of gold 
from a bank vault to a safe. The vault and 
safe are separated by a river. The river 
can be crossed via a network of small 
dams, which are built across it. 
Unfortunately, the future of this Link is 
not certain, because occasional logs 
drifting down the river will destroy parts 
of the dam system. You must transfer all 
the sacks to the safe before your route is 
cut off. 


You play the game using the following 
control keys: 


to move up 

to move down 

— to move left 

— to move right 


THN®D 
| 


Your current task is shown by the color of 
your man. White indicates that you have to 
pick up 8s sack, and yellow shows you are 
carrying a sack. To pick up a sack, you 
just move onto the same square as it. You 
put it in the safe by moving onto the 
safe. In either case, a beep will sound, 
and the man will change color. You have 
three men per game, and the number Left is 
shown at the top of the screen. 


A log will remove any section of dam in 
its path. However, sections above and 
below are also damaged, and if you move 
off one of these, and into part of the 
river where a Log has been, you will Lose 
one life. This is the only way you can 
lose a Life, so be very careful after the 
first few Logs have appeared. 


When all six sacks have been put in the 
safe, you move onto the next Level. On 
this level, there are two dam formations, 
and these alternate. As the game 
progresses, the number of Logs increases, 
until finally you'll find the game is 
virtually impossible. 


You'Ll see at this point the dam is almost 
nonexistent, and you'll have to resort to 
new tricks. You can ‘'‘'hop' onto a Log 
immediately above or _ below, It is 
difficult at first, but not impossible. 
Remember, you don't move with the log; you 
are just using it as a piece of dam. If 
you are very careful, you can even move 
right and Left using the Logs. 


The end of the game is the hardest part, 
and it is the main reason for getting as 
high a score as you can before the dam is 
destroyed. 


Scoring is simple. You get 100 points for 
going from the safe to the bank vault and 
another 100 for successfully bringing back 
a sack of gold. If you lose a Life while 
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carrying 


the sack, you do not’ score. 


Neil's highest score is around 3300, which 
gives you a target to shoot for. 


The 


program is written mainly in BASIC, 


but it uses a machine code routine Located 
at 32530, 


Left 
after 
data 


which moves the Logs right and 


across the screen, stopping them 


a collision with a dam wall. The 


for this machine code is held in the 


Last two Lines of the program. 


Here's 
graphics: 
This is the 
100: 
1000 1030: 
1040 1045: 
1050 1100: 
1510 1560: 
1600 1630: 
1700 1740: 
1800 1820: 
2000 2100: 
6000 6650: 
7000 7100: 
8000 8100: 
9000 9120: 
9200 8310: 


the key to the user-defined 


R= 
5 = @ 
Piss! & 


program's structure: 


subroutine to print score 
game preparation 
initialisation for each game 
initialisation for each Level 
of the game 

main Loop 

detects collisions 

end of one level 

lose one man routine 

game over routine 

draw dans across river 

draw river and the banks 
title page and instructions 
POKE user graphics characters 
POKE machine code into memory 
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And here's the Listing: 


Go 
T 
+. 
fered 
: = GG 
iSSa G Rr 
as “Sosy == 
ISAT 3 Sr 
itnt @ pes 
Sago 
2939 LET 
1240 SS 
PAPER =: nia 
-AT &S.25; 


1945 LET MiH=0: 
: LET RN=.S992 


1) 


< 

S 
LET MEN=3: LET S= 

2 


1656 LeYT SK=G6: LEFF wc=e LEFF CH25 
. BEY “ase 

1188 26 Sve TSVe SOG SUS S25 
2596 REN Looe 

253318 LEFF Eta: Let eief 

3517 LET AS=LTHREY Ss Ze fee" THE 
N SG FS isss 

35208 teYT L=L+fRee=“z": -fRSe="a"? 
35338 Ler C=0+l(es="F"3 -tes="I"} 
23540 ter Ts=ATT ih.C?: TF AFecsa 
a THEN 50 ¥F2 2688 

1545 EBSEeP .882s5.,.18 

4558 PRINT SY L4i,f3; FARPER 3: %IN 
K 5°" [RT Lc; INK, & PSPE= s:”" 
3555 IF RNDSAAM THEN RPSENT S&T Yt 
NT (RNG$331,.3@: INK &: PAPER >> 


“: LET RN=RN—-.3225 
3566 cbT 2=SR Sessa. 50 Fe 2518 
A6@@ ZF AT=3@ THEN IF G=F 7? 

EY G=65: BEEP 2.2.20: LET  S=S722e: 

GO SUB 1696: LET SHK=SN42- 


164@ if AT=31 THEN IF G=6 THEN 5 


EEP .2.,.48: LET G=7: LET S=S+i98: 
SO SUG 169: EF SK=6 THEN £0 TS 


A622 EF AT=4€5 THEN &0 TG i858 
4625 IF AT=@ THEN SG Fo 2545 
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16390 LET L=it2 LET €=Ci: e606 TG 2 
S50 

2788 FOR A=-iG TO 28 STEP 5: SEE 
P 1-8 BES .1.:A-Sy NEAT A 
173iG FOR S=15 TO -28 STEFF —3 6E 
EP .1.8: BEEP .1.,8-3 WEAR FR at od 
EP .1.-15 

$728 FoR _ A=i FO at FRIti? AY Ae 
: PAPES A233" 
NEXT 7 
273@ SEEP .1i.,20 SEEP .4£.22: FOR 
A=2 Toa At PRINT AT 8.8: FREER 
i a 
ys NEXT B 

i7véa 6G TO iS=s 

4800 FOR A=is TO SS STEP -4: FR 
INT AT L,C; PAPER ©; _ 2NK @;)“A"3R 
T t.C; PAPER S&S; EINK 5:* * BEEP 
-91,.8: NEXT A 

1605 | PRINT AT L2,Ci: PAPER 3S: IN 
K ; 

43610 LET MNEN=NEN-2 PRih Sr 8,2 
S&S; PRFER 3: INK FF: “BRIGHT 12:NEN 
281315 IF MEN=O THEN GoO_To 26e6 
46817 IF SK=6 THEN GO To LFS 
i1820 LEFT L=2 LET Ss25: EES tear: 
GO Te ises 

SRS SEH GSHE SVR 

2SSiG FGR A=G TO FF: FOR B=i Fo St 
>: PRINT AT 5.&; PAPER #A:” «ask a 
SB: NEXT of 

2826 FoR A=i TG 22 BE&r = 
EER 22553. BES -.2 35 Bs Exs 

2EQS0 fF SHS THEN LET 2=S Rin 
T AT G@.352-LEN STR HS; PRFER_S; 
INK 7: BRIGHT i:;nHS: BEEF .2;5 5 
EEP .2,18 

2ESS5S FOR f=258 Ta Ss SFE 

T AT 8,8; BRIGHT 2. Fh 

ZNK. Ss GAME ODER Grr 

E OVER “2 BEAT & 

2046 FOP B=6. FO F EOoR 

RP 6S, 3-H MEXT RR: FOR 

TEP +2. BORDER A: SEEP 

NEXT & 

21ieae@ Gh TG isss 

S@oe0 STOP 

SSG REN SRIDGES 

6G18 =F NH=S THEN SO Te &tes 
GG2a LET NN=S 
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S850 PAPER S: INK &:. PRINT AT F \ 
so “oat “.2tS,™ 7O?7@ FOR R=25 Te S2: PRINT is FF, 
SU6G FRINT AT S295 “SAF &.26:;" e;* E NEXT 5 
“SAT &.155°” ac FRSS FOR 8=29 TO Si: PRINT ATA: 
BP7e PRI — I Ss ; N 
: ree : 2,25; xINK 7; “ta 


Le 
tH 
al 
z 
os 
a 
f 
4 
D 
0 
” 
z 
oo 
Q 
of 


SaS8seq SFRINT FA £2,085: “SRY 322, 22:3 SaGa0ae REM TITLe PARSE 
‘;AF +2,.£,;™ es SFE Bess SCRDER S 

4 |. Sets “UVF Fe2,22i~ - BP18 FOR R=2 TO S2. SRINT AT 4.3 
S@ES9G@ PRINT AT 35.6,” “(FF 22,18 > PAPER 6;”" 

: oN SST «babs eee re “- NEXT # 
621aG SREINT &Yr 24.5: :F S12 O2M Tiss: FOR A=i TOG &: LET 
*T 24, 35:3” “St 25.35” a TiRi3=A-i: NEAT RB 
a7 -- 2S 5482" : S6@1iS FOR A=2 Ta &S&: LET TPi=ixF [(R 
S500 RETURN ~ NOsS2 42: LEY #R=-Tin: Lei Fizxs =z 
S600 PAPER SS: INK &: tp +S Ie Re ve {IN}: LET TixrYI=RR: WEF = 
i Ie ie “SAY F.20;"“ re a kx 22; ° Se0isS Sco TS Sass 


7 10.3G;° “SAT. 18,3 


6S. PRINT AT is. 
mee, ~ *% 13,285" 


6626 PRINT AT ha. S22 SPLINT SY 5.7: EB *:AY 3.24:" 
22 AGs * eat 12 S's FEF .&, Fi} #2 A ; = 
Sa ZF INKEY$¢c3"" THEN BGRDER 2 
: i a 


ne 


i) 
(DE Lh WI 


‘LRT 24.282 


71) 0) 


bal af iis min on 


646 PRINT ST 15. K “32° Gob 3 

ray Ba INK @: PAPER &: PRINT af _ if 
6S¢ LET NM=2: RETURN = 7 “CONTROLS: : PLOT S75: DRAW 
7OSBG REM SOREEN m. 25.8: PLOT S55.75. PREY -Se.5 
@1@ FOR A=3 TO Si: PRINT AT A.S S958 INK 2: PRINT AT 34.9:“S.... 
PAPER 4;° rented tele 2 t- 35595 “ast. ah eb 


FESS INK BB: PHREER T! D 255, 

S:_ PRINT AT _.25i", NEST S@SGQ PRINT SF 218.5: FPRFER 42; =INK 
TSSS PRINT FAY =.2: a = F; SRIGHT tt: “PRESS ANS KEY TSG P 
WAT SsS3" SS AT. 3,26; ” ;AT 42,3 Lay 

ae Ht &. 38> a SQGGQ SRINT AT 21.8%: PAPER 2. THs 

F 5 SF Se tees, + **53.-2 BE atc 4 ee. nema. 
F Star een’: LIP tsa Se Fo. sine * Liam ty Neit Petliragcci 

FESG SCRINT AT 16,25; % “:87F 22,15 5190 GOGO TO 8Gz 

gs Z BSaq Ser uso 

7@60 PRINT AT.1i7.3:~ _ phar’? SQS5 RESTOSS giss 

AT i6.i8:" ' “TAF 23,235;5° “sh SQie FOR A=USR “A TO US §S°*+23 

T 268.248;" ™ REESE 5B: PORE A.B: NEXT A 


wR pe Ta 


fu) 


woo oe 
QO. ++ 


fore f) 


Tarantula 


In Malcolm Young's great program TARANTULA 
you are in a dark pit about the size of a 
football field, fighting for your life 
against dreaded tarantula spiders. 


The tarantulas slide down the sides of the 
pit Looking for food, and human beings fit 
into the category of food. You're equipped 
with a torch and a laser, and you move 
around the pit in a fairly flimsy tank. 


Instructions are within the program, and 
you'LL find you'Lt quickly work out how to 
play it once you get the program up and 
running. 


* i Ses acer Ris Soe eke REN 
= = ; =k Fro G= = 
oN d= Ko. 4 
S PIM pPpHiais? DIM wS(S,15) ee 
TH git{S) 
S&S PRINT “Plesse wait just 2 m 

Gment.": GO SUB SS&1iS: REM define 

cCheracters 

1@ GQ SUE seebe 
 _&@8 BORDER 5S: PRPER @: INK FF: C 

3Q@ PRINT AT u,xits 

3S PRINT INK @; PAPER S: AT 241. 
2; “SCORE="; score; AT 21,22: "SPIDE 
ass“ aks.” LIVES= i lives 

aQ LET a=x: rae b=y 

S@ LET isS=INK 

= Go Ta cpeera OR i¢:>°S8"3}+23 
476 

Pe BEEP .8S.@8@: GO SUB UAL i #2 
AD 

Ss PRINT AT b.a:* "5S BRIGHT 2; 
AT u,.xs; EINK cKI TS 

S2@ GO SUB (RND< lev) #100+188 
ee GO TO (daStyst1.x +4) =" 1 F538 
+ii¢@ 


2189 LET en=cn#ten<eni +i 

420 GO Ta (n>@ix65+4d40 

125 IF NOT st(cn,1)3 THEN GO TOD ¢ 
3213 #7a+49 

35@ LET sxssten; ir: LEFF syw=s (cr 
=i 

R4@ LEF dasisy.sx3=" “* 

35@ LET sy =sy4+(su<cyu¢d) —-isys+ytiti 

LET s(cn.2i)=sy 

160 LET sx=SxX#isx ¢x#L) -—({SxX>xX+4+12 

LET 3sicn,13 =sx 

3A?7Q LET d$lsyu,sx) ="" 

250@ GO Ta 46 

Sao REM New taranteis 

21a IF n=15 THEN LET tev=.@5 = 
=TURN 

2ae ET n=nt+21: LET nb=nbr1 ~“ 
2350 LET sx=s(n,2)}: LET syesit(nse 
2408 LET dg#isyu,sx) ="s" 

252 LET c=INT (RNDs6) +2 

26@Q PRINT BRIGHT 2: INK c; AT S54 
~-41,5xK-1275 “R"S CHR &;: BEEP .4,1- 
MAINT >“ 

7@ PRINT INK @, PAPER S:AT 21, 
2, "SCORE="; SCQRE; AT 21,12; “SPICE 
Ri a0 B; LIGES="; LIVE = 

S82 RETURN = 4 Se . 

@AQ PRINT PAPER F: BRIGHT 2; FL 
F5H 21; INK. 2; AT 18;5;"arrgh?! a 
HEY GOT yau.” LET tives=lives-—i 

FOR t=1 TOS Ss €t,13 =x Fi 
Ta 5390 
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Se TF n=4i5 BND nb=G@ THEN GO Sv 
S 3ses5o 

ay PRINT INK @; PAPER SAT 21. 
=; “SCORE=";SCORE;AT 23,12: "SPIDE 
RS="s nbs * LIVES=";LIVES 

=i LET fk =ckK+(rk <7! 

=o IF tives THEN RETURN 

S33 IF Fore <giSi THEN Go TO 64 


mi] 
4 
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ao INPUT PRPER SS; INK i: 8T &,2 
OU have Made the “FY FLASH 2, 
FIVE"; FLASH @° PAPER 6: "PL 
enter your mame. “5 LINE =F 


FOR rs5 TO. 2 STEP -—1: BEER 
: IF score+qtr3} THEN NEXT - 
FOR g=5 TG r+2 STEP -1: BEE 
»9: LET qftq)=9f(g-1): LET wee 
fQ-1i: NEXT g 

LET a(gl=sscore: LET wH{(gi=p 


BORDER 3: PAPER S&S: INK 2: C&C 


PRINT AT 3.8; "Today’*s Chane 
are: 

FOR f2=2 TO S: BEEP .5,fr 
PRINT AT Fer,4: FLASH inws(r 
AND score=Qtirs i iwstrriqtr3: 


r 
PRINT AT 36,3; FLASH 1, INK 
> “DO YQU WANT TOG PLAY AGAIN?".: 


IF INKEY $="“n" THEN STOP 
GO TO 18 

REN Promote rank 

ERRDER 2: PARPER 6: INK 42: & 


PRINT AT 3,7; "CAGNGRATULATIC 
“TAB A; “You have kiited “ise 
“108; "“. tarantulas” 

“TAB BS: "You Have now 
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NK 
@ RESTORE S668: FOR m=1 TO 2S 
: READ n: BEEP .2.n: NEXT m 

FY PRINT ‘TARE 2; “You Witil naw 
change tanks to" 

7oe@ ot abs TAB B: "signify yuaur n 
=v fa 

73e PRINT “"“You now contro the 


Bao FOR c=6 TO ck STEP -ia: READ 
61g PRINT “ BRIGHT 4; PAPER rk; I 


“! 


NR D3 


CH; 
S2G° PRINT “* tank.‘ 


BRP PIM dH#i22,3B2): LET s=?: LET 
r=svS: LET n=@: LET nb=8 

S49 GO SUB 92590: PRINT AT 329.18 
“Press 2a key": PAUSE 5S 

S50 BORDER 5 PAPER @ INK rk 
-s 

S6@ LET =@: RETURN 

182900 LET Up=(Ts=" ‘eM (7 Sa pe I 
i818 LET HO=t(TS$="B") -(7$="") 
aeons LET Vs¥s4i: LEFF H=X+2: LET w 
ins 

S@S5 PAPER &: INK 

186350 GO Ta ABS vd ¥1204+1040 

2820 LET dt=(s#hd} 


ASS@ LET d=ht+tdt: LET d=cd OR fat 
1: LET d=d-td3sS23 #td-se} 

ZQa7MA FOF t=htho TO ogo STEP ka 
388Q@ LET vl=v-wth GR w-wth<2 
$398 LET Clatvtewthi -Cv4tnth reli ¢ 
tuth-21) 

Li@O PRINT AT wl-2t,t-Lid#iut,ti- 


Abe 


CRRS 63: IF wut>21 THEN PRINT GUER 
35°F" AND ho =1s"N" AND hd=-1 

31223@ FOR weul42 TO Lt-2: PRINT F 

PASH (delw,ti <3" “IFAT we-1,t-1sea 
#Hiw,tjig: NEXT we 

4420 PRINT AT LL—-&2.,t-2iGRtLELa tis 

SCHRS Gi: TF tt<et THEN PRINT GUE 

R 3; “he AND hd=1: “df AND had=-1 

324358 LET wth=wth+4+1: NEST ¢t 

1i420@ Go Te i238 

325@ LET dt=ts€¥rd) 

11608 LET da=vtat: LET d=a OR tdsi 
i: LET d=d-td?+21) #id-2ii 

LIFG FOR t=vevd TO dg STEP vd 
3218@ LET itl=th-wth? OR th-wth<1) 
1183@€@ LET wut=t(hewths —Clrseth-Ses = 
fh+mth>3S)3 

ae RAST, AT t-4,Lt-ia;3$it,tt F 

2 oul} 

i=B2 = Lil THEN PRINT OVER Li Fi 

S aaane ti-2; "FF" AND vd=i1; “k" AND 

i haars 

3285 IF wi¢SGS THEN PRINT OVER d3 

me eae? ut—-4; "8 AND vd=15 “U4" ANC 
an eo 

423@ LET wth=wth+1 

4326 NEXT t 

42350 BEEP .2.5: PRPER @: INK 7?: 

SLS <« PRINT AT us. xs t 8: 
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LS4Q PRINT INK @:; PAPER S;AT 21. 
2; “SCORE=";score;AT 21.12: “SPIDE 
in aes 2 gt = ies LIVES="; lives 
L250 LET s=s-RND+rS: RETURN 
22390 LET UD= IT SAV) SCT Sad: i 
ET HAD=iTs="B°1 -(Ts="2" 
Sei@ LET VeY4e1: LET H=xX od 
=822 FOR T=i TO R 
26825 LET VUe4UD: LET #R=H+HD 
SQSBQ@ LET Vase (0649 -(Us213: LET 
=4H+tH<13 -(H>Ge2i 
2835 BEEP .85,i1a 
S42 PREM AF -ib.M-—bs 
2eanea GO Ta (DS (LH cs” "3 £2 04206. 
2@Q@eea PRINT INK @; AT U-3,H-1; “KE: 
NEXT T 
2O7Q@ LET rar-{7r:+2) +19: RETURN 
2oee FOR T=@ TG ¥: BEEP .1,t Pe 
INT INK t;AT U-21,H-2; “3: CHR &; 
>: BEEF .1,t+4+7: PRINT INK 7-ti "A 
-CARS &; BEEP 4.32, 21-7: NEXT T 
@9@ LET SCORE=SCORE+1@: LET S=s 
2RAND +a LEY r=InNT (s+i.,8) +2 
2168 FOR t=1 TO nn: IF ¥est,.2) & 
SD h=S(t,.1)3 THEN GO Ta 2126 
2ii@Q NEXT T: STOP 
2120 LET sit, i} =a: LET nb=nb-i 
Site LET oeiv, a at Set ale ol 
2i4@ PRINT INK @; FPAPER S:AT 23, 
2; “SCORE="; SCORE; AT 24.12; “SPIDE 
HS="7 nb; “ LIVeES="5 LIVES 
2152 LET tew=Lev+@.@1i#tiev<.2) 
wa ae P=eP+1: IF p=if& THEN Ga 
2 ‘tS # 
21i70O IF n=45 ANE Nes artes PRINT 
BRIGHT 1; PAPER 4; NE @;8TF i5. 
‘ Here wait o arierate for the 
x weave. : sO SUE S25 
2199 RETURN = 
Seeaa LET Ts="a" 
SGiG LET X=xX-i{x>) 
S@20 RETURN 
Saagea LET T=" 
S818 LET Y=¥+t¥Y <2O) 
S82@ RETURN 
7222 LET Tg="* 
91a LET yY=Y-{Y¥+G@) 
FQSe RETURN 
S@8@ LET Ta="E" 
S218 LET KX=%+4+(*%<¢31} 
S@2e@ RETURN 


415 


66.90, 125, 5G. 126,153. 
129,155,126,60,126.i55 
6©,126,68,55,55,66,136, 


SS¢@ DATA 16,16,146,2954,206,254, 
Sma, ao 
eh Sei bee 130,254,254,220,254,44 
2560 DATA 9,126,60,256,256,60,12 
— 2 © 
S570 DATA 122-7,15,31, 85,12 7,255 
SSS8 DATA 2 25. 363° 454 248.35 
3530 DATA asS.127569:92,48,7.8/4 
~ x 
Se@@ DATA 255,254,252,245,2 ,2e22 
$,3192,128 4 woe 4 = 49,22 
S610 DATA 0,0,0,24,24,.0.8.2 
S615 RESTCGRE 
SBS@ FOR d=o7 ae ia? 
S625 FOR e=a Ta 
S638 READ Nn: POKE USR CHRS dte,nr 
SStO0 MEAT €& MExMT 
SE5@ RETURN 
S660 DATA G@,-1,-2.,.-42,1,1,1.9,9.@G 
tee dy y er @.-2. a. La Re baGs~2g 4,8 — 
2 
55728 DATA “YELLOW, “CYAN .“GREEN 
MAGENTA". "RED", "BLUE". "BLACK 
2008 RANDGN@Ze BND serEo 
2822 bel he HBSS SZSKE SF 
S830 INK i: PAPER 5: BORDER 1: & 
LS 
324@ PRINT Nese TO 313;AT @,9: ‘ 
See FAR ee Teer PRINT QUER 2 
:TAB Si; aie ae 
286a PRINT AT 24,@;H$i TA Sei- 
Sa7O PRINT AT 10,10; BRIGHT 1s F 
_RSH 1; “TARANTULA™ : 
SSS0 LET ms="YOu are inh a dark Pp 
it about the size af a Foatball 
fqZqeld fighting for your life ages 
inst the dreaded tarantutas.The 
Larantutas slide down the side a 
; the Pit in search OF fFfood,yoU 
®USt Fight Off these ravenous be 
2sts if You vaiue wour tlife. 
116 


SES LET mS=mMG+" You are equiped 
math only 32 torch,a taser and x 
‘Ve MOVE Brolnd ian 2@ Lightly arne 
~Fed tank Whith is Noa match for 
ihe Crushing Jaws of the tarantu 
‘3s 2 
Si@@ LET mS=m$+" Your weapons ri 
t On terantula juice and if they 
son’'t get enough theu begin ta 
wear daWNM and their range stowle 
decreases." - 
SRAM LET mses" 

" +n G+" 


Sl22 PRINT INK @; PAPER &:AT 19 

ti. EReSS. ats TO_END INSTRUCTIONS 
PEED fe! or RESS ANY KEY Tao 

225 Stee Saoq 

3 OR L=1 TO LEN Ng-Z2r- 

AT 15.2;M8(L To L+2rp ee Sear 
+ito ze" INREY $="e> Ge TRAE e= hE 

4 


DIYs 


HEN GO TO 9i1isa 
S@ PAUSE 16: NEXT L 
Ara OER 4: PAPER 5: BRIGHT @ 


si? @ PRINT AT 5,2) “USE KEY 

(3 TG NQVE YouR TANK = SUSE. 
REY i* TO LIGHT YGUR TORCH’: ?’ *L 
SE KEY *2* TO FIRE." 

SiSse@ PIM d#t21,.32): OFM s (15.2) 
S338 LET s=?7: LET rss 71i.5+1 

S228 LET x=INT (RNO#G23}: LET uH=Zz 
“NYT iRND#22) 

3210 LET Score=0: LET tives=3: Lt 
=? Ab=E 

32P28 LET rkK=?7: LET tg="*E"* 

S238 LET cn =n 

3240 LET tev=.@5: LET p= 

3245 GO SUB G25@: INPUT " Press 
ENTER when you are ready".r&: RE 
TURN 

Sl5ER FOR zt=4 TO 45 


@ LET sxX=INT (RND#S2) +2: LET 


u 


itis 
Lg min ae ect bes 


Sy=INT (RND#21)+1: LET o=RND 

32 ® IF o<@.5 THEN LET siz, 2} =k 
EF ${Z,2) =20% (RRND? .5) +1 

S258 IF o:@.5 THEN LET s{2,2) +348 

- LET s(z,43 =S2x#(RND>. Si4+i- 

S23@ NEXT z: LET n=nb 

2398 RETURN 


Jungle Job Use the following keys to control your 


boat and your car: 


This is a two-stage challenge from Andrew 
Sweetland and Martin Jones. In the first 
stage, you have to guide your canoe down a 
fast-flowing river. There are a number of 
rocks blocking your way, and you must 
avoid them. If you hit a rock, a = Mman- 


— to move up 

to move down 
— to move right 
— to move Left 


vOoOYrDp 
| 


1 REN 


eating fish (or a faint computer version FP SIJUNGLE JOBee% 
of one) will leap out of the water to OMartan Jones & ana- = 
consume you, = REM “EPISODE 7 °¥ Sweetland 
: 2 POKE Boece s LET £23 
In the second stege, you' LL find yourself ahr’ a) “Sadee ro re ORDER @: BRI 
on a dirt roadway Like this: GHT s- ce ta - #: CLS BRI 
ttreretrrirreseretttisrer2erettt @; PAPER i. 7° peyet: PRINT AT fF, 
fs222ss2222¢ RINT #1; aT o,¢ 
SPs ee ee ciara, cena CES $4 1S PRINT #1,AT 6,9; PAPER 1, 
- - + + 4 =G PRINT AT &, =ary 
PPiiiiiiiiiiiiiiie (2 22 ¢ Sie 4 ah a i 
$$ 3-$: : : — 
SkTSTTESTTELALTIAAEY - tt F = +— = AML 
Seteeretseeeeeett= = - t 2? t SS FOR --=18 To 15 fe 
22t -_# <¢ : T G:RF 1,03 PRPER S Bilal Ege 7 
a == =: za 7 eat ka oN F 
¢ = i= =? t K B.D P2229; SRIGHT 4; IN 
= ftTstrttse2¢¢F472¢ +? t 45 F 5S To as: ee eo cae 
? SETTETEPTTSLTETIET £t t Deis: - as SoBe aoe et ta 
? STLTATETATELZE2E ? 5 3 KR 6, "Hr 2P; PAPER 1: IN 
$ #4220222 29922 <2 + PRINT 416, (HIN: NEXT F: 
t SP Tis2< =? 2¢ R 2:°HIT" Wo#S@; INK 6; PAPE 
= o.oo a = 227% _=ff S@ LET x=17: LET veo 
¢ +22? «$42 zt? Be. Epis ona Tee. Batre. x 
? _t2tteet2sFzF | =14 OR my Pe Ue ee pee TTR it} 
t fETPTTITTERET Ute) 314. TARR Be ee? On ATTR ¢ 
tt steseetetes2et¢ Ba PRIME aio eg Oe eee 
SSeS SSSES SS SSS SSSESESSESSES DO 3 | 2; 8B" 1” OM ae. APP FAFER 
70 LET y=y4+2 
Your car has no brakes, so working your ANG oF ANKENY $= 4° THEN IF ixs45 
way around the track will call on all your 4A AND ATTA teary rete yd < 
driving skill. TTR. CS ~i.3+2! = > 44° THEN “‘ORINT RE 
%.4i PAPER 4; INK 7;° LET x 
le 119 
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146 FOR f=1 TO Sea: NEXT rr: GO 


H LSOGDE it 
aH 5 APER 42: THR @: CLS : 
OR. = 76 Rotor PRINT ° NNAINNNNINN 

JNMMNINNAANAN WExT fF 
"S16 FOR i ;=-5e TO 5@: BEEP .G@1,F 


; NEXT Ff 

S25 FOR F=5 FO &: FR F492 
| PAPER +; INF a2.” =D 
“3H FF .3s ; ae a 
S25 FOR f=F o te Ay r,= 
SG; PAPER 4; INF 1," ¥.23; 
e “2: WERT _ OF a Pao 
S36 FoR F=3 ao 4 PRINT F,23 
SPER 4: Ii! 3 ae : NEX 
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(pe pebee RE 


*,4; THK S@rS DATA S46,24 
G;AT x-i, o,8 
pli > a FOR f=0 906G DATA G,G.,¢G, 
“25 ae 254.¢@: N 309C DATA G,G6.@, 
Li= : i+@ THEN 246 é 
Sec HEX i GO TO Si S1@G DATE B.34,4 
S2G IF ti¢=8 THEN GO TG S602 9116 DATA &,12,6 
FOGG REHM FSLCCESS! Sizes GATS G,2S4, 
7S1@ BORDER @: PA SilsSe DATA G,254, 
LS : PRINT AT iG, Side DATA 24.65, 
ONS: “:6T 42,8: “vo C..-— 
DUR Way THROUGH": 9152 GATA 8.225, 
UNGLE! i” 6.8 
7O26 FOR fr=9 TO S168 DATS 36.1226 
BEEP .@1.,-f NEX 234 
FOSQ Go To Sess Sire DATS 8.222 
Fade STAP 2.3 
B@EGG REM FAILURE! : Slse CATH 24,36 
BQ1G RESTORE : BORDER @: PARFER @ +3@ 
> INK ¥: CLS 91906 DATA @.6.78 
SG@=2G PRINT AT 210.3; "HR! HA! FRSC S200 DATA 9.6,8, 
IsT' YOU'VE USED UP EVERY CHANC $216 RETURN 
E THAT I GAVE you: 
S@QsSso FOR F=Hi1 TO 12: READ a,b: BE 
EP a,b: WEST fF 
6040 DATA .5,-5,.8,-5,25,9,;.5,@, 
-6,2,:5.2,.5,5,.85,10,+65,15,..5,28 
».~.5,25,2,-29 
S@SG PRINT AT 25.6; "WOULD You LT 
KE RAHOTHER GOT tv -Ni” 
S96G IF INKEY S="y" THEN LET ti=a2 
- GO Ta 's 
Seav7G IF INKEY¢="*n' THEN PRIHYT Us 
RF 8 
SOSS Go To seca 
S@sS STor 
@gst sTar 
S@Ge SEH juwtDG OATH 
G@@Q1 REZTORE 2o@0: FOR F=8 Te 15 
9: REGGE =: POGKE US “ea"tF.,6 Nex 
Tf 
9@1@ DATA &.G.2,1,46,96,127,63 
S@2G CATA @.@,192,152,154,134,25 
5.254 
2020 DATA 24¢6,56,1226.252,124,.53, 
2040 DATR &.60.6,3,25,45,34,31 
SQ@SG DATS £.6,2,198,248,24¢6.246, 
24s 
SO6G DATA 31,52,15.15,3.8,6,6 
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Dodge 166 SRINT OL Srorss 
;3. PAUSE “ENTER TO P 
LAY BGAIN eun 


In this fast-moving game of logic and 
skill, you are heavily disguised as an 
asterisk. You have to avoid the VBB's 
(Vicious Black Blobs) which appear at 
random around you to terrorise and trap 
you. 


As you'LL see when you run DODGE, you must 
enter a ‘Level of difficulty’. You need to 
enter a number between 1 and 100, with the 
higher numbers representing easier games. 
Level 100 is only for real experts. 


You'lLL have to keep moving to ensure you 
are not trapped by the VBB's. Use the 
arrow keys to move around. 


2S INPUT “Use curser keys ta # 

Gee, Infut Gaifficulty 
Zitrickey?: -AHiieasy., 

iP 

3@ BORDER 4: LET x=18 LEY maz 
5S: LE s=6@: LET 3-83 

46 PRINT * “: PORE 23652,255 

56 IF SCREENS {x%.u3 ="_" HEN CG 
& TO i166 

6@ PRINT AT xX,y5 "Ss": LET s=sHi 

7@ PRINT AT x SAT pee tre ge ees 


INT {RNO#S)I -1; INVERSE 4; rs 

66 PHUSE = 

S9@ IF Come INKEyssaa OR CORE TF 
wage Fy -S6 THEN Ge Te #8 


@@a LET s=cope INKSy 


ii8 IF s=535 AND u>G@ THEN LET y= 
7120 IF a=S4 AND ysc2@ THEN LET x 
“isa IF a=S5S AND xe THEN LET v= 
*Ta@ IF acSe AND yiae THEM Let ¥ 
=4y4+2 
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Duel Cabbageway 


The fiendish mind of Neal Cavalier—Smith 
thought up this strange Little program 
(and its 'witty' title). The aim of this 
game is to plant cabbages. You score one 
point for each cabbage you plant, and lose 
10 if you attempt to plant a cabbage on 
top of a house. Three points will be 
deducted from your score if you plant them 
next to a house or under a tree. (I told 
you it was strange.) 
3 LET a=@8 


4 PRPER @: INK F: BORDER @ 
5 PRINT *: = ee SS ee 


wuRmy* 
B& PRINT “You siare 2 Faint Fe 
Fr Sach CShbRSsSse you Fisnt. = 
wi igs= 3R iF you Pilani one on 
terPp oF = POSIT fit WIit Rat BF 
ow there) and S cabbhsages if yo 
UU Piant themiby a2 Acise-ibetiare oo 
F terraces! or wnder aA tree.” 
i1@ LET ag=" 2% os LE s=2:. LE 
T R=38 
22 Cin bBSias.3se 
S@ LEY cs= ok 
xX=1 TO 12 
C$=c + e 
BESixX} =CHtSE 
x 
y=45 . 
x=tRNDbsifs+i) 
Wy AT S8.32; FLASH 31; °ST 
e PRINT INK 5S 
#=-2 
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i308 IF x>+32 THEN LEFF x=s-1 

14@ IF x<i THEN LEFF x=s+i 

4145 iF INT S=8 AND y=if UF =1s 

THEN PRINT AT 26,4; UNK 2; ™ a 
PR MT AYF 221.4: INK 7;" EE“: LE 


146 IF INT x=9 AND y=i¢ THEN PR 
INT AT 2@.2@; INK 3; “AR. PRINT 


AT 243,28; INK 4; ~* .. LE? s=s-3 
isa iF THRE Y $="°=" THEN LET y=y- 


i 
16@ IF INKEYS="H" THEN LEFT yaust 
1 
17@ IF SCREENS {41,43 <>" “ THEN 


Go Tro 2228 
122 

ice 

2eana 

See 
=-1@: 

25: 

NEAT 


23a co To 214 
“THEN PRINT ST 22,4: INK 23“ 
PRINT AY 23-4: INK 7:;" BE “: LE 
F s=s-2 
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Ghost Chase 


The ghost is after you. The small playing 
grid has a number of mines (X) on it, and 
you have to try and tempt the ghost to 
come into contact with one of the mines. 
At this point, the ghost will be 
electrocuted. 


The mines also pose a danger to you, so as 
you try to evade the evil Little ghost, 
you have to make sure you don't touch 
mines or the ghost. 


Written by Neal Cavalier-Smith and Graham 
White, this program demonstrates a fairly 
intelligent ghost in action. You certainly 


won't be able to evade it for long. 
You'll see that the program runs very 
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quickly indeed. If it is too fast for you 
the first few times you run it, insert a 
few dummy FOR/NEXT Loops to slow it down a 
bit. 


i 6O SUB B88 
= SUE 2h3 
= 2a: LET 2a LEY Rr=e 
LET has 
5 BORDER & PRPER @: IHR F: 
is 
4@ LET a=INT (RNDBs152 +e 
16 PLOT 3S,8: BRAW 285,88: GRA 
GS, 1256: DRAW -2eS,8: BCRAW &,-is 
22 LET b=INT {RNDx12133418 
2&8 LET xw=e2stInT fRND#G1314+2 
408 LET yaoe (INT f(RND#iIG13 +18 
45 LET 2=23stIINT t(RNGB+#511346- L 
T fFSsfeset{InT (RNDs5:1+16 
aa =x GR e=3a OF Fou OR F= 
THEN Ba Ta 45 
45 PRINT AT ce. Ff; PAPER 3; "xX" 
45 =P THEN €0 TO 495 
a7 iL Gop: FOR z=2 Tea Y-p e 
FO_458; NEXYF <z 
45 3F ys23 TREN LET yas 
Be PRINT AT x.y; INK S, CHR i 
5 LEY vsxt ("LET wae 
Se - CHRE(ISG: it 8 User 
sef = an 
Fast be T AT &.,6b;. ENK 6; CHR 2 
a Tr a: LET d=n5 
5 ose CHReiidd: is 32 UsEer 
ager 2 rhost , 
= a=s-ixtaitrixra 
= b=b-fytibi+iyu:b 
= 
= H=S=HtHSS (INR EY S="E"} -—Seit 
H 
= REN GEs ix ts —Se ine SGi 
HEGES PSY FSSC INKREY S="S"1-fet 
NKEY “zg 
55 wmeudgste fy ss —fx tx oS 
11a rT AF we On SM FRE cds 
#45 =x AND b=y THEN co TO 
2a 
123 & f{e-bi="xX" THEN 
¢ £6g Pe, 
4136 ig {x;y} ="X THEN 
ey Te 
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_633 DATA 26,62,42,187,127,127,1 
2b: FLASH 41; CHRS as, 73 
| 648 FOR n=8 TO F _ 
25 2 SSE 65a EoD a: PORE USP “b'4n oad 
68@ NEXT n ae 
SOE ays DATA i45,56;8, $95,080, 74,137, 


Pe) 


feo SJ CTT [LN pee 3 


es NEXT A 
40,8; PRPER 4, FLA ? DAT &€,25,6,82,8,8,28,34 
7 RETURN 3 
42,8; FLASH 1; PAP = BORDER @&: PAPER & INK F - 
| | a 
fs | EQS PRINT TES S; INK 6; FLASH 1 
1 X.,¥o FEASH 2. %sa % 26 Hos. & J, SH A ee 
2 ? TG a STEP -1 S1@ PRINT °“'"yYou have iG move ¥y 
a EE <S82,.25 Our man (¢"%; EINK &; CHR 1256; INK 
= Ex 3 ack, eround the screen to enti 
= RANT AT xvog"* | Te the ghost (t{"*; INK &; CHRS 144; 
P36 LET gpsp-ai: IF p=8® THEN GOT ENR F;°) Whack ifs Chasing you. 
ao Sa to run into the bombs ("’; PAPER 
SSG 22 TO 16 < 2;°X*"; PRPER @8,°)}.But be carefu 
ASG PRINT AT _x.y2 FLASH 3; se i vou dan*’t rfrun into the bomb ar 
430 FOR d=1 Ta 18 | let the ghost catch you. You he 
434 BEEP .-@1, INT ('RND#6G3i—-25 se & tives. G 
432 KH 4 a aod WSS Ezwaae ea! 
415 FRI. AT s#.93.% “* PRINT AT S22 PRINT °““PRESS KEYS ""s"",-—"" 
Gy i3°° S S"' 7h MAVE IN PTRECTION SHON 
446 LET p=p-i: IF p=@ THEN GO T ON KEY? 
Go Sean SSG PRINT ° FLESH 1; “Press any 
425 G0_TO 12 key to cantinve”™ 
S GPER i: FLA = S4d@Q LET a=INKEYs: IF INKEYS="" 
5 if AT 326.2 Q F THEN Gi Ta S548 
oF Spt Pe UN SSe82 RETURN 
= Nia TO 
= . €.62 ,8 
= Fie) 
= > d=1 Ta 286 NEXT d 
=i HSH @: cls 
Ee ER @ CLS 
= khea<s FHEN LET hs=s 
= NT AT £,138; PRPER G3; “HIG 
Hi : ":hS JAF 1@,8; FPAPER S, +f 
NR Gs PRESS ANY REY FOR ANOTHER 
eo 
SSG LET As=XNKREYS$: IF ASH" THE 
r Go To Bee 
SSS LET p=6: LET s=@ 
Boa 66 To & 
Sa FOR n=8 Toa F 
G10 READ ¢@: POKE USR “a‘an,d 
S26 NEXT 
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Frog on a Log 


Frog on a Log is another great program 
from Malcolm Young. He says he enjoyed 
Creating this program as with it he had 
broken new ground in programming 
techniques. "For example," he wrote, "I 
have been experimenting with machine code 
routines and produced a_ scroll left 
routine of my own...The computer cannot 
usually recognize user-defined graphics 
using SCREENS, and most people have got 
around this by using the ATTR function. 


"I found that by pointing the system 
variables CHARS to the UDG memory, SCREENS 
can operate in the normal way, although 
you must use the Letters that the 
character represents. I have used this 
technique in my program from Lines 300 to 
490. This technique has the advantage of 
recognising any UDG characters, including 
non-flashing, non-bright black ones. 


"I have made the program so it can be 
typed into the 16K model as well as the 
48K model without any modifications, i.e. 
Line 30 CLEAR USR "2"-43 for the machine 
code." 


The object of Malcolm's program is to 
catch as many insects as possible using 
keys I and P for Left and right, and CAPS 
SHIFT to make the frog jump. You must 
avoid going off the screen or falling off 
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the log and encountering the spider, as 
this will result in a loss of Life. Each 
fly starts off with 200 energy units and 
this slowly decreases to zero, When it 
reaches zero, the frog starves and dies. 


Butterflies may appear, and if caught are 
worth 10 energy points plus 50 bonus 
points. You have only a 50% chance of 
catching a butterfly, no matter how 
accurate you are in your jump. 


You'll find this program quite addictive 
and you may wish to modify it to include a 
skill level option, which changes the size 
and number of the logs. You should type 
the program in and then save it by using 
SAVE "frog" LINE 5000. 


REN SF nes Tosa tl A =Kt Fx 

18 REN oo on” 

22 DEF FN fx) SENT TRND sx) $4 

SQ CLEaR Usk * -d& 

$2 So Sua Sane REN tS 

425 CO SUB 621730 

Se oo Su8 SRS: HEM dtserisey 

Br £5 Fre Sita 

F@ PORE 2S2606,0: POKE 23607,62 

BQ PRINT AY &@,@; BRIGHT ai; INK 
25 PREFER, 23 “Score: "7, 5BO;TRAR 23; 
"ENERGY: “Ler; TAR Po. v"Fenges: “nF 


932 RETURN 


i@@ REN read keyboard 

Z41@ LET K=PEEK 23556 

428 LET x=x+ 1K =8BO2 -1K =732 

i350 IF x{i OR xX231 THEN GO TO & 
248 LET K=iW 65275 

a45 60 TO (h=2e54 OF Jp) #d2+15@ 
2582 PRINT ATF v,x-4; 

46@ IF NOT POINT (Kee Siz THEN 
So FO $a 
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A165 RETURN 

272 REM Gres 

4BM LET. Up=t: L£&yT Ses Ler gos 
=id: PRINT AT y.xN- 

ASQ PREE SSEAEH. tw: " PORE "2SEAT Sh 
as 

Sawa FoR ca=a Ta st 

Z28 LEFT 273528 

S345 SQ Fe fy=5 P72 Ss 3RBRADPR 

SER JF SOHEEMS Fy.uwraast* TREN 
a T2 Baa 

BW FRINT AT 2-3. te ey PMI Yrpist 


23 
Ar ye CAT yeh No At" AT Bae. 


<a? BNO fje18 AMA 23st SESS 

-8285.. bp 

SEM Weo'«T i 

268 LEF ap =bp+iP Ae 

BYR LET spsjo-Ls trys Sis iryrs2oi 
2S PRSLE SPREDS...-P- Po #& PRBS .. % 
Zar RETUBH Sega caaieocee 

B82 LET s8=5c Tess 

3280 IF agsga="i1" OR aga" ‘ THEW LE 

J ef#=fy-33 #32 -2 LEY 257E& FO &F 

=) = “; GO To 358 : 

Bia IF ak="9g" OR aS="h~ THEN ce 
Bam- LET EM SEs: LET Sf =f0e 


en TO 358 
SAR FOQ z=2R TO 2a: BEEF - Wo, -= 
Seer -f,-2--S: NE XT = 


SER LEP FreescFres—i- LEFF 2 =a. s 
SEP 2.230: IF MOF #79 FHEN SO 3 
a APRA 


"S$ ET en=2ae: Ga Tre seca 
Sse L = 43@: LET jp=-2 
x 


7a Ga SUB 4 
358 RETOR 8 
iam TE SCREENS stax ik cave FHEDS 


tet POINT AF y-B LN; MOC bee” 
“439 PRINT AT 16,x%-1; "aaa"; ATF 17 
Set? 


‘S4e RETURN 
256 BEEF .a5,-5 
362 PRINT BT 26, 
ree ae 
“47 - ee ‘ 
AT’ 17.%; AT 18.x;7 

iP Resa al -s: 8 Kiser ‘AT 4B, XG 


IAT 27 2832" 
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2908 GO TO 338 

S@Q REM main routine 

See IF AND>.@5 THEN GO Te 56a 
S38 CET St=Bes (FH sc rspi4eot-st 

52@ LET iSist TGQ 52423 =F" 

SEA PRINT AT 32,8), INK 327-35 

a LET isf=iadg(S TOC 3 

SEQ LET x=x-NOT yp: LET RoR 


S2P 60 TO inDT bo #4P386302 

6GQ LET d=FN frit{4i1: LET b=b-1 
640 LET bu=byse (d=1) —td=2): LET 
BN =bpXR + (Gd =39 -td =4) 

SSP) LET pyaeby-fbys25d¢fbyctay: L 
Ef. ox = bx + (BX <0) — (bx >30) 

S6a PRINT AT bY, be; INN BS CRIER 


a7a ZF NOT b THEN LET B=fRND>-S 
J#1°FN frrysewir1st: IF 6 THEN LET &Y 
=F oF YAS} +4: LET BN=FN fr Ifa 

SES FEM sei sear 

cpciag LET S=S+IRNG>.43 #415 4N}3-fS > 


“Jaa. PRINT INK @;AT 16,0;q$:;AT 4 


: * a7" 
73a IF a AND (x=5 Of »s«=54132 
THEN GO TO 81a 

Tee LET en=en-1 

Faa FRINT AT Be aa; BRIGHT 3A: ITM 
x Fy; PSPER 27;8@n;" 

74ae IF en<¢e THEN PRINT PAPER 2; 
SY 8,7; FLASH 1; "No More Energys 
eo Sus B38 

7309 GO SUB ive 

S@ea@ Ga Ta see 

Sia PRINT INK @; AT 16.,.s;" “AI 


- 
S2a FUR z2z=8 TU Lt STEP .t 
SS@Q BEEP 2,-Z#1@: NEXT =z 
Sd SQ SVE Saa 
282 60 Te sea 
i@®@@ REN score table 
Bis GA SUR Seee: GA Sup 7e 
1822 IF sti=hs THEN GO Te iRse 
aasa INPUT “You hawe the new hig 
m scare!*","“Pléease TYPE im your FF 
AME. "3 LIne ngs 
28490 LET AhS=SC 
AG5@Q@ DIN |asii) 
1@6B INPUT “Do yau want ta Flay 
BeVainr' js as 
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i@Fa@ IF ag="n* OR sag="N" THEN PO 
KE 25693,56: PRINT AT 2@,1@; "OR, 
Pisy SQ8in soon.": PAUSE SG: BOR 
SER F: RANDOM 

issa SUB & 

Aaa a se 

SaQa ! tte 

S818 BORDER S: PAPER 1: INK 4: © 
—~5 : PRINT AT 2,2; 

Se2e PRINT TRS 4; "EE; TAs 22; ‘EB 
3o50 PRINT TAB 4; "ER°; TAS 19; “8 
S@40 PRINT TRE 4;°RE Ss ™| o™ 
oe ee TRE * BS & FEE OS 
525 - of 

“B 8 : 

Seana PRINT TAB 4; ''HE E ol — | 
S979 PRINT TAB 16; "98"; TAB 14; “See 
2 

S@G2 PRINT “TAB 6" s 

Sag2@ PRINT TAB 5;" 

Si@e FRINT TRB 53” a, 
ay te 

Sp 18 PRINT TAB 5;"B @ &€ & 
= 

Si2@Q PRINT TAB 5;"H See "ee." 
site PRINT TAB 22; "3"; TRE 2a; Mee 
SiS RESTORE 

Sid@ FOR a=3 To 1a 

Sis@ REAP n: IF n=99 THEN PAUSE 
5: GO TO Sive 

=i60 SEEP .15,n 

Si7@ NExT a 

2180 LET “=PEEK 237308+2S58+4PEEK 2 
S298 IF _x=USR “a"-1 THEN RUN 
3200 RETURN 

ss CATA 2,5.3,99,2,5,3,3829,5,1a 
S@QQ REM set digpiay” “"’ ok 
SB@ie® BORDER 2: PAPER S: INK 8: 
SA20 GO SUB 7e 

Sada PRINT PAPER 3; INK 4:AT 17, 
S;TABS 31i:" “; TAB 34;° 

S859. PRINT PAPER 1;TAB 32;" "“;TA 

SQ53 PAPER 8 
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S@55 PRINT AT 18,28, “3 
Sa57 peter . “SESARR  ELESESESEEEEDR: 


A@Qea PRINT AT 21.8; PAPER 2; INK 
Fi BRIGHT 1;“° HIGH SCORE "“;hs;" 


ong 
Sa79 LET yH=i?: LET x=19 
SQSBA LET up =e 
SQSH LET ds =28 
Sioa RETURN 
S348 LET hS=@: LET ns=" 
Sai2a2a DIN is (43Q2 
SI68 LET b=@: LET t= 
SiFa@ LET n=usSR “3a"-776: RANDONITZ 
En: LET tw=PEERK 2G6E7@: LET hR=P 
EEK 23671: RANDOMIZE 
Sis LET pbp=B: LET w=8 
S293 LET s=@8 
S2e09 LET freas=s3 
R225 LET Su Sgee 
S222 LET 
S245 BDIN as (32) 
S302 RETURN 


SEOR REM define graphics 
BAP RESTORE 3oHeee 

S@2@ FOR c=1 TQ 18: READ ck 
GASB FOR b=8 TO 7: READ A 


Sa4a FPOKE USR ch7bd,.T 

Sasa NEXT b: NEXT Cf 

Sa&6Q LET mc=usR “a'"-d2 

Sara FOR m=ec Te #c322 

SQG@ REAP bute: POKE mw, byte 

S690 NEXT 

34300 RETURN 

Sia5 DATA “a".8,8,08,8,8,82,8,8 
S208 DATA “b*,36,126,68.155,126, 
126,68@,99: REN Frag 

S33%0 DATA “c*,165,231,66.129,1535 
.353,126,6@: REN ivejumping Fras 
S22Pea PATA “d',126,126,62,8@,129, 
395,356,195: REN 472 jumping frag 
5220 DATA “e28",178,85,178,55,478, 
35,17a,65 

3243 DATR "F".1790,85,1708,85,08.8, 
S.@-:- REN tog (bottom 

S352 CATA “9".,47,389,86.1350.4178, 
S2,393,17: REA Iv2 butterrFly 
3269 DATA “h",16,108,212,1350,175 
-212,328,46: REM ive buiterfily 
S272 SATA "3i",32,2,4.73,255,56,85 
:rS: REM insect 
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3260 CATA “VG".eed,16,112,128,85. 
2,@,@: REM insect tait 

S3ee@ DATA “1L",0@,304,63,159,1566,17 
1,144,308: REM spider 

3318 DATA "“n",@,660,202,242,98,P4 
@.10.1@: REN spider 

SS2@ REM machine cade scralt ter 


S938 DATA 35,32,88,62,3,58,129,5 
2,6,5,197,229,126,245,54,95,35 
SSd08 DATA 1,31,080,237,176,241,15 
#25,596,.193,16,2357,167,137 

S358 DATA 224,7,237,82,58,129,25 
761,02 ,2280,201 
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LEISURE LINES 
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Card Pairs 


This game — written by Raymond Blake - is 
based on Pangolines, in which you have to 
try to pick pairs of cards from a pack of 
20 until no cards are left. The aim is to 
do this in as few moves as possible. 


When prompted, enter the coordinates of 
the card to be turned, entering the column 
number first. The chosen card will then be 
turned over. You do this again, so _ two 
cards are showing. If the two cards are 
the same, they are removed. If not, they 
are turned face down again. The game ends 
when there are no cards Left, at which 
point the score will be given. The Lower 
the score the better. Raymond Blake 


challenges you to beat his best score of 
17 turns. 


R&@ RORDER «: SAFER B re F. 
1S 
SQ DIM ai4,5)) AANDONTZS 7 
ae ="{ilaisisiseisssseas 
S3is2sga4ne4145eR4345" 


4@@ LET t=LEN at: LEF S=INTF TR 
PeieBisSsei: LEY es=-asice FS S+i3 

128 LEFT x=shei bets} £57 = 
os fa 

3 a*=agZSt TO b-2i ¢taPibsroS 
TO } AND b<>4-33 

ise atx, vies: NEXF G: NEXT 

2ee i Bc>S 

SAR FCR if=3 FO Ss: FPRINY AIF 8.4 
2-32; ENR ££; TPBIERDS = BRATSHT 3: 
z HoMF 
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SESe FoR ess F = 
3.28; INK 2; in : Ai 
TSB < pon tse T . aS 2=2 = 

437 AY §GS549R ,3 +232; FNK = 
B*2 NEXT REEF BR, RB: HED 2 
NEXT 


Soe SAINT BY 8,23; "Turn over is 


JT 8,25; 
FA R48 IF INKEYs$<3°” THEN GO Fe 3B 
a 
SS@Q LET g¢s=- gee eo sa Reis" OR 
GHz CA TREN 2a ri 25 
B6@ PRINT AT S, 24; qe: REE .B5, 
S2@: LET gqi=VRL as 
anne TF INKEY#<2°° FHEN SO Fi 2Ff 
Bea T Q@S=-INKEY IF 3" ‘Oh 
See "Se HEN £2 +a: uBe “2 
GSe@ SAINT AY 3,26:25 HEoF BS, 
2@: Lf QSsSURL <5 
eg ZF 8'Q@5,823 i328 THEN Go Fra < 
wee’ PRINT AT 28,23; NERSS 25" 
ry Ss 2 
422 HEEP i. —i98: PAINT AY &,=24;" 


"386° Te “ENKEY $200" THEN Ga Ta S¢ 


SS@ LEY gs=INK KEYS: re sa OR 
Q$2°4" THES GQ TO Sse hd pasta 


Sse PRINT AY 3,24; - = S 
BG: LET pasUAL ae te PERE sORy 
aoe ZF INKEY Ss." FHESM Si ro ar 

S8e LET QS=-INKEY SS: FTF gHia* OR 

G@H$i°S° THEN Ga Ta Sse 

SRea SHRINT ST 83,55: as BSS .25, 
28: EF PES=UFiL ss 

GBB FF sipi.FSissrB® YH Ss F = 
se > —— = — — 

GiB PRINT AY 28.23; INVERSE 2;° 
Try eg3in’ 
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BEB BEES 2,-18: RPRINT AY S-S4: 
wet 28 2a ~~ 

638 GO Fo F352 

65@ FRINT AT &,23:" "78 
T 3,e8¢:”" a 

G@PFe@ LET xeB=ipt-iis5e2: LE? ye=i 
PDB-1! #442: LEF x=ex2: LEFF voxe: Lb 
EY c=—p32: LEY @=82: 82 Sue FE 
GSQR LET eit=c£: LEFF Pe=-a 

Besa LET scretisi 

Fee IF atlQa, BS SIPA-PeI FHA 
Go TCG Fsae 

7@S FOR i=8 FTO if SFE & BEES 
oiy5i% NEXT 2 

F7i@® FAR ist TG uu: FRINT = “Acts 
2¥a;* “7 AYP X43 VE? NOoMT 

1 

sean £ET a (@i,@Pi=8@: LEFF siri.pe 


738 LET c=8: FOR :=3 FO 4: FOR 
Jai vO S: LEFF c=ctatiss}: NEXT 3 


Fee == cC3B FHEN fo Fra Sees 
75Sea Gao TO see 

FBeG REEF .5,8 

FES FGA FH=i TG 288: NEST =F Fon 

i=B TO 2: FRINT AY x34: -232; INK 
6; “TB | AY x2s+i . yo: “Heme - NEXT 
5 

7?7eB@ GO FG BBs 

SARS FESTORS 2288: FGA F=2 Fo Bet 
tC,da3}: READ zs: NEXT = 

BEA PRINT AY x ee 3E2Si FO BGii:inYr x 
#i,u;zsi4¢ TO 8s 

S3@ SRINT BT xe2,4;2RS1F FO Sian 
T xX33,4; 25738 FO 322} 

S582 RETURN 

S88 CLS 

S2@ FRINT AF 8,2; “Yeu cieared t 
he tabie afFier”’; AR 38,3232; 8ce5;" teu 
rnos”™ 

Q3@ FOR i=i TO 5 RESEP -B,s- 
NEXT =: 

QGG@ LSF s$="“Frese BF 2t*} Fir 4 

new game PHINT AY af.e: 

QSe =aFR ist FO LEN =2. FRIST IN 
K Giasiit; IF agsisi is” “ FHEN 3 
EEP .83,=28 

Q@S2 FF astit="* “ FHEN Sstiss 2 


he pe 
OM soon 


MEMT § 
af INKoYS="° 
Flin 
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Sub Search 


In this challenging game from Malcolm 
Young, you have to track down and destroy 
a submarine in the shortest possible time, 
by employing your fleet in a strategically 
sound manner. 


You control a fleet of warships made up of 
a battle cruiser, two patrol vessels and 
three frigates. Your task is to hunt and 
destroy an enemy submarine which has been 
Lurking around the shipping Lanes near 
you. Your battle cruiser is equipped with 
a sonar system which rises in pitch as it 
gets closer to the sub, 


Each vessel can carry only a_ Limited 
quantity of depth charges. Once they've 
been fired, your ship must return to port. 
Full instructions are within the program. 


2@ REM Sub Search 

2@ REN © 1965 Malcotm Youns 

SQ REM 3=4 baw C= d=K €=4% FHL 
j= = 22 y=". Ka =o bss, Tess 

$0 CEF FN 671 =SOR (FN = f(Sx,-S C1 
si 1 4FN 5 (84,5 12,2)32 

5SQ@ PEF FN $ (8,563 =ABS (a-b} ABS 
{a-—b? 


6Q@ CEF FN ftxi=INT t(RNGex3 31 
FQ CEF FN t(u,k,l ml ={ABS (5-# 


SQ GQ SUB Q@amaa: REM define gra 
@ GO SUB S@@aQ: REM instructie 


is 
328@@ GO SUB 7FEGB: REM SET UP SCF 
zen 
228 REN ve wee ye ee ee ee ee eae Se 
120 REM move Submarine 
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4308 LET sm N +r (6 

14@ LET sx X+1SM=1) -(smH=2i 

358 LET £4 U+t {SH =A) -—-tsm=-42 

160@ LET sd =sd+{sm=5) -(sm=6)1 

AFO LET Exs=Sé4eq TEX 412 -tsx219) 

i6Q LET syesyutisyus¢ii -—-isys19) 

49@ LET sd=sSd+(Sdtiti-(tsd>Q) 

219 FOR c=1i1 TO G&G 

22S FF FN ttsx ,sitc,323,8H2,8 (c,253 
2 THEN GO TO Sea 

SSO IF FN trsy.ttc,32).8x%,5 (t,1} 
$+ FHEN Go TS SEBS 

HdQ@ NEXT c 

S25Q@ REN Player’s wave 

SEG PRINT #@3" Press any sey te 

throw dice." 

BFOa IF sf{1,131)>=0@ THEN ac bonds AT 
215,21; “sSaansar"; AT 16.213; "“reeds:” 
S. 20K SB; FLASH 7. INT FSS bt: FLA 
=}3 Bs INK, S&F.” 

SaeQ IF Siar ay pee THEN BEEP .i,3 
S-FN bit PAUSE if 

2oR9@ IF INKEYS$="" THEN GQ TQ 25a 

Sea REN ice 

3SGQ5S LET nb=anbt1 

BSi@ LET @w=FN ¢f (2@1418 LET mF 

r it6@i 

SEG0 FOR isi Te d 

i Fa) T M=HHFIM(EG1 31: BEEP -1.m 

S4A PRINT AT 18,213; “Yau have "; 
RT AQ,21; oe {iSl4mMi5j" maves.” 

358 NERT 

Sd an} C2) PRINT BRIGHT az FLASH 1A; IN 
. > PAPER 3S; AT 19,21; CHR [1534+ 
™m 3 

SF@ BEEP 2,38: LEF n=e8 

SSQ LET n=nxtn<6) 4 

330 LET p=stn,2): LET rastn,1)} 

S95 IF -<@ THEN GO TQ 380 
eR es A ane aecre 4; INK n-1; PRP 
= ms f; ni 

418 Part PAPER nm-1i; INK 3;AT = 
Bats SHON FO. SB iN es pS Sin ses 3 

424 PRINT AT 21,6; “depth charge 
=> Lert: “3,5 tn.) 

SSS Peri 54 = SB; “Enter mews. ** 
§ LINE ms: IF m$="""" THEN PRINT &X 
NA M-32; PAPER S+(n=6);AT p,r; dst 
3 Ga Ta 32aa 

44¢M4 LET t=LEN m3: IF tam THEN & 
Ser L,-lre: oo Te toe 

45@ FOR c= 
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4608 IF weicdis'n”’ AND meicdies 
SND me ocd ¢> "wl AND mefod <>"e" 
AND mB(ci isd" THEN INPUT AT @,2 
. Ena taig entry.Try a7aisg. “FS LT 

NE ws: GO TOS ¢et#e 

470 IF mefci="d" THEN GO TQ 67s 
4589 NEXT c 

42906 REHM move £HiP 

ESaAa FOR g=4 TO Lt 

S1@ PRINT AT P.r; PRPER S&S: BRIG 
“<F 4; NK &, "°F" 

S22 BEEP .1,15 

SS LET peprtasgiqea=“s “rs —-(msiqr= 
“wHV'1se(p +B - fp 2»2B2 

BS5 IF p=28@ AND £6 THEN LET si 
m,3I1=3: BEEP 32,22: PRINT AT 21,8 
nae epth Charges toaded.”: LET 

Bee LET ca=retme (gi ="e"%i —-IwZstQi= 


550 iF ATTR tp,r) <64 THEN GQ Ta 
S608 PRINT AT P,r; PAPER S; INK 


F-in<3>6); OVER 1; d$(n) 

=S7OQ BEEP .1,28 

Sha LET wm=m-1 

S98 PRINT BRIGHT 132; FLASH 434; I 
M2 PAPER SOS; ATF 28,23; CHR3 (i527 


3 

S8@ NEXT q 

Plea LET stn,id)d=ar: LET §£1'7,2) =-p: 

IF NOT vu THEN GO TC 658 

e2@Q INPUT “Dea you want ta Fsre 

S tharge?"; LINE if 
S3a ITF sSiaTe 7 ANDO rRxie Tn” Teer 
INPUT “Fire 3 @adepth charge? "; 

HME 3%: GS FO E32 

a@ IF ig=“y™“ THEN Go Ta 67a 

S@ IF n> @ THEN GO FTO 386 

@® Ga To 1268 

7 et ere fire aepth charg 

S IF sin,3)¢«1 THEN PRINT FLAS 


? 
yi 1, AT 2i, @; “ne wepth charges te 


t's oo FO E59 
Bee PRINT AT 2,21; PRPER 6&6; INK 


632 FOR a=1 TO 7: BORDER 7: BEE 
© .3,-1: BORDER 6: PAUSE S: NEXT 


= 
FeAQ PRINT FLASH 1; INK 7; PRPER 
3 AT 21,3; "“Bepth charges ready! 
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PAS INPUT “Enter depth. t2 TQ 2 
BS “sage 

T2e IF geek GR spsaB THEN INPUT 
_isA, i= eat as ryaodgye.,try ag9as ie 
73@ LET ef=INT gp 

FaG BEEF .35.-1@: SEE .2.25 

7S5@ FOR f=18 TG -dp STEP -2 

FES BEEP .832.,5 


78@ BEEP .8,-1a: PRUSE 22 


7R2a IF sx=r AND sy=p THEN BEEP 
-3,4: IF sd=dPpP THEN GO Ta 1868 
SeR LEFT Sstn,3)i =sin,3}3 -2 
S32@ PRINT FLASH A;AT 21,0; “"Niss 
edi“: IF sx=r AND E4=P THEN FPRIWN 
Tv AT 21,6; "The SUb’S right under 
uoui"™ 
S20 PALUSE 108 
SS@Q@ PRINT AT 21,@8@;" 
Sea GO TG 1ia 
L@@@Q REM sub destrayved 
ried oe BORSER.. 1: PRPER 1: BRIGHT 2 
i820 PRINT” AT 2,3; “CONGRATLULATIC 
i8SG@ PRINT AT 4,3; "You manage 1a 
Sestroay the* 
38¢0 PRINT AT G,.3; "Sub fh# “JAB; 
rounds.” 
1858 PRINT “Thet’sS “j;PCrvNbHHXAeB;* 
% @FFaiciency.” 
28@6@ INPUT “WMeuld you like ta pi 
SY S0938anF “>; LINE is 
3G@708@ IF if="y" THEN RUN 
2880 BORDER FF: PRPER 7: INK @: £& 
RIEGHAT B88: CLS <« STOP 
SQBD2 REM cotlision 
Sa@1Q BEEP 1,-12 
S@20 PRINT AT 21,8; “CGLLISTAN!": 
=33@Q IF ATTR ip,r) =4e8 THEN PRINT 
AT 209,80; FLASH 1; INK @; PAPER 
F>S8tH1I5" Hes SUNK! *": LEFT = {n.4} 
SEG40 IF ATTR (FP,7F1 tn#Ben-1i FHEN 
SO TO 3iae 
=G5Q PRINT AT 28@,@; FLASH 32; IN* 
_ 83 PRPER 7; s$ (ni ;* has funki”": 
iEY stp, 4} =-2 
SASa Far a=i1 Ta @ STEP -.-1i: BEEF 
2,.3#5-18: NEMT 3 
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PRUSE 108 
PRINT AT 20,8; TRB Si," “STAR 


Go Ta 13@ 

LET sS=ATTR {(p.,.ri-48 

STQP 

REM THPPPIEAT APT PTT ATT TTT ts 
REM submarine sitack 

IF RND>.7 THEN GO TO 258 
BORDER 2: LET w=1: PRINT AT 
1; PAPER 2; INK 7," REO " 
FOR a=1 FR FF: BARLEAR 4+: BEE 
-&: BORDER 2: PAUSE S&S: NEXT 


@ IF RNO1@.5 THEN GO FQ Ssee 
@ PRINT AT 24,8; INK Fi BRIGH 
7,SHt(CIS“ under attacKr?" 

= £ Sa 


6% 


TA] EVN ee Cyd Mad al TM ad fat 


FEO YU) GH UD bee 4 fy 
Phy PABINR GING Ms 


HHVANnGISGOHOS 


” 


TM 


1S &) i 


> PAPER 6; FLA 
14 Hope For the 


AT) RS Re 8 
dor TG 


ce 


FOR t=1 TO 2 

LET tisFN fF (2aei: LET PrHtta 
164) -20é 

oeoe AT &,2@+p; PAPER 5; Ff 


"% 


af MN ok OTD 


ae bod A Ped bed TE pod pd ON EQ) 


LET p=p#ip¢i@1s4 
PRUSE 10 s 
PRINT AT 8,2@+p; PAPER S; = 
-f¢<sBlsidsic) 


IF INKEY$<2"F" THEN GO TQ 5 


FOR i=7 TO 2 SFEP -1 
PLOT 228,62: ORAM INVERSE 


42 

7Q@ BEEP .O85.,a: NEXT i 

180 PLOT 288,62: DRAW INK I:PF, 
Sa 


2 IF ti=p THEN GG TOG Sseea 

@® PRINT AT 243.@; PRPER 2; IMF, 
~ Fhat was goad #valive sects 
1@ PAUSE 2@@: PRINT AY 22,3; " 
h autiAnather tarpeda!“*: FOR 

TO 7: BEEP .8@5.,.38: NEXT 2 

ea ,PRUSE Se: PRINT ATF 21,8; TRS 


@ WEXT 
e@ BRINT AT 22, Pg: “Faetse Riarw) 
mage “;uU-2; rts” 


We 4 Oo 
cha eta jalee Sa 


SU UNH SD NY NT 


OO & GI 
Be 
ke 


TUT ANY fe Ts 


ITO NL) i oS dT pe pe 


WE UEMBA fe: BID 


Ta Ge GY 


Ot) 
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S250 PACSE S@: PRINT AT 28,8; TRS 
Js Se 7. AB 343° ” 
BSsa Go TO 25a 
S382 REM hit 
S31@ IF u=1 THEN PRINT AT 21,8; 
eo Hiri <<: BEEP -3,-5: PRUSE SR: PF 
RINT AT 22, 6; “The “S$ fci1;" hes 
evected att it’s gepth charges 
a's» LET sto ,33 =@ 
S320 IF us=2 THEN PRINT FLASH i; 
INK F> PRPER @; BRIGHT i3;AT 21-€ 
:E8(cd5 * has DEET LOUSti”™ 
SSG8 LET Ususi: PAUSE 1268 
S4¢@ IF ws=2 THEN NEXT ¢t 
S5@ PRINT BRIGHT A1:RAT sitc,2)},.ft 
2; INK @; PAPER 5; * 
@ LET s tc,24)} =-1 


@ FOR a=1 TO ®@ STEP -@.1 

@ GEEP 32,2#5-18 

@ NEXT 2 

@ FOR a=2 TO BR: BEEF 8.iNFESS, 
NEXT 2 


@ GO TQ 258 
ae REM SvbMWariTVe if CLOSE PLEX 


ty 
@ PRINT AT 21, o4 FLASH 1; BRI 
1; INK 7; “Blertis 

@ PRUSE 16@ 
@ PRINT AT 21,0;s$itc);" has & 
ted sub!" 


NOS 
sims) 
la) 

| 
uN 
mime 
Te 
Ns 
hid 


@ Ge To 9999 

@ REM display 

1@ BORDER ¢@: PAPER S: INK 1: & 
HT @: cits 


Od OUP OL GTO es Oy Tr 


eS MD 0 U0 OO SLOT oT BO) O00 Gi 


Gd TOG E> 1D OG ee GY “fhe bo 91D Oat Dip Uf 0) 


Fi: FOR 3 = TO 29: PRINT BRIGHT 
“THT Leet rei thea REN = 

= FaPphic “°F 

FaS@ NEXT i 

a 


246 PLOT 9.15: DRAW 160.08: DRAW 


FS58 LET w=FN_ r i28) +22 

PBFA FOR i=i TO m: LET x =FN rit 
3); LET my=FN_ 619): IF ATTR (weYE 
>®xX) 2642 THEN PRINT AT WU. mx, UR" 

?a7S NEXT i 

7-G2SQ REN ships 

FESO FOR a=1 TO G&G: PRINT AT Sts, 
2i,8(a,43; QVER 4; BRIGHT 3; PAP 
ER F; INK |a-iA;d$iai: NEXT a 
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Fi@e@ PRINT AT @,31; FLASH 12; "SUE 
SERRCH"'; FLASH OO; AT 1,21; "CQANDT 
TIQN";J AT 2,213; PAPER 4; "GREEN" 
Fii@ REM PpEeriscaPpe 
F2i2EBa CIRCLE 2086.,102,4a 
Fis@ FOR p=4a TO ial STEP -i 
Fiee® PLOT See-p,182: Peal P#O,.B, 
FaiS@ NEXT Pp 
FiSQ FOR i=@ TQ 8: PRINT OVER ay 
Ber eBRe Ey) RET gs Ske (3 HT: 
Rat 
Fiv7e PRINT QWVER A;AT 8.21: "+4377 
tetee” 


F18Q@a RETURN 


S218 BORDER 1 PRPER 5S INK 1 & 

RIGHT a: CLs 

caeaee stick a 1A Ret oan pk a a 
ari: { : us: i= 

5 a deka as REM graphic 5,C,,€ 
,a,0 

SBSAQ FAR a=i TO S&S: BEEP .1,-a: F 

FRINFT AT 21,9: INK 2; INVERSE 23'S 

J SERRCH": BEEP .2S5,8a: LETF :=3- 
4 NEXT 3a 

Se¢@ INPUT BRIGHT 1: "Da you want 
to read anstructions turn? oe ate 


= 
BWSQ IF ig<s"“y" THEN GO TO Sei 
Sa6GQ FOR sa=1 TO 6S: READ PH: READ 


2s 
S@7O PRINT AT 3,@;P8°° "as 
Base DIM bStLeEn pe) : OIN tSILEN 


3090 INPUT “Press “; FLASH 4; "EN 
Bde FLASH B;" to rontinue. wi 


PS 
aa PRINT AT S3S.,G@;bS°°*’t$: NEXT 


4@ IF ps="nN" THEN GO Ta 8218 
e@ IF peio"y" THEN INPUT "Da ¥y 
eens ta Bate ¥YGUr Onn Flee 
er yen aa GG TO 61 
228 BERG" 2285 3P he * 
6,3: RESTORE 932 
ORDER 4: PAPER S: BRIGHT a: ce 


258 FOR a=1 TO 6: READ cy 

6@ PRINT AT @B, 2; "What Would ye 
Like ta calt"‘c cS; =% 
INPUT ns 


TH) ee ou) 
i 


Be ORM be bi" 


Oy 
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SiFa IF LEN n$345 GR ns="" THEN 
INPUT “No Yau can’t have that,ter 
¥ 895i" ns: GO TO B178 

2352 LET s$ia) =n 

Sic3a PRINT. ,PAPER 6-a; INK 3a-ij; AT 
_2t5,.8;5 55; ,O8(32> NEXT & 

S=ae8 POKE 236538, eG: gen Fu Bene 
221¢ REM name 563 

S22 Ss S33@: aR az=i Ta 6 
_READ C$: LET s8tai=cs NEXT 38 
fie Oe poets 6: READ d: LET s 
ig ,43 =4 =—21; Pas S74i,e61 =2e): = 
39rd 2 NEXT ‘ Poet 
5248 SX=FN f(28)-41: LET sy=rP 
a T't2G3-1- LET sd=FN 5 618i - 
a LET PC=FN bf): LET nb=a RE 
Ley | 

Seale REM bere 

3a: LEerine graphics 

392@ FOR c=1 TQ 14: REAG cs 

329308 FOR b=8 TO 7: READ bt: POKE 
_USR CHs+h, bt: NEXT b 

Seda NEXT c: RETLBH 

S852 Data “2",8,2,9,132,283,327,i2 
=, @: REM Patral poat 

S868 DATA “b",.36,16,59a. 486,255, 
S5S,-126,8@: REM battte cruiser 
SQ7@ DATA “cC",A,8,8,2@4,92R,255,2 
>4,8 REN frigate 

S838 CATA "dd", 3137,74,44,31,245.,.5 
2,682,195: RE exptasion 

=) “e',@,4@,46,128,30@,i131€ 
-=8, REN mine 

= “F" ,255,128,128,125,12 
=. 128: REN grid = 
Ss? “ge? Fs Zoek, 7,4 .258; - 
eM 4 

S328 DATA "h",@,@8,08,0,224,08,8,8: 
REM - 


ve 

314@ DATA Rie aa bn eas Bue: 

Si60 DATA “L",O,182,102,0,8,182, 

eee inte G8 $o8%GSs 0. 24,24,0, 

Sel AR a Af alin 
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Sige DATA “Yau coentret & Fleet oc 
fF WSFTShIPS CONSiSting aF:12 Batti 
= cruiser, 2 Pstrot vessets and 
S frigates.“ 

320@ DATA “Your ask if Ta hunt 
SAd destroyan enemy submarine kth 
ich hes been turking areund ¢t 
SE Shippingtanes mear veu." 

S21@ DATR “Your battlecruiser gs 
equipped With &2 Sonar SYSTtER 
that Frise®sSs if Pitch as it gets ¢« 

fuser ta the sub.” 
S228 DORTA “Each vesset can carrer 
onty 3 limited amount of dep 
ih tharges and once they are Fir 
2d the Shipmust return ta part.T 
me limits sare 4 ta the battte ct 
ruaser 3 te each oF the 
Frigates and 2 10 the patrat 6b 
eats.“ 
S238 DATA "The SU bmMAarINEG May tor 
Pedo any Ship that is Within «& 
range af S unmits and is if tain 
= either horizontatty ar verta 
csily.“ 
S2d0 DATR “The SuUbMAarINnEe MOVES F 
me unit Seach round sand may Hs 
de up ta a depth aF AM wUNMIts.tF 
2GU Mave 2 OF your ShiPS dirfecti 
3 above thesubmarine an 2atarm wa 
Lit sound.” 
S25@ CATR “The number OF BOYES Y¥ 
SU get €ach round depends on 2 
dice’ ,you MSY MOVE any GUMmMber & 
i ShiPS SS tONDG SS it if Within 
thse tlamits.™ 
S326@ DATA “The campiter nali se9 
uence Through Bath ShiP and 
SSK you sFyau Want ta ROVE st. 
Sswer With “ENTER” iF you don?t 
er use the directians A.S,2€,W OF 
“d* For c2Ppik Charge.” 

Sera DATA “IF you navrsgate your 
Ship inte enather ship then the 
Smatter SHiP Witt be SuNnK.ITF 
eau crash IHtoO HIHME Your ship 

2il Sank.” 
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SesQ DATA " “,"The Ships under ¥y 
SBuUr command are-HNS INVINCIBLE ¢ 
20ur Flagship) -HMS SHEFFIELD ¢F 
rigate 1) -RNZS OTAGO tris 
#te 23 -RNZS_ CANTERSURY 

ifrigate 3) -HMS BRITANNIA tip 
axe ee 4 bagi 3 -USS TITANIC {pai 
re oa rr 

S290 DATA “Would you Like tQ@ saz 
=e your awn Fleet? Answer ftyvnd.* 
S380 DATA “yaur Battlecruiser fF 
LagshiPi™“."Frigate 1”","Frigate 2 
“ "Frigate 3", "Patrol baat 1"°,°P 
Btret baat 2” 

SS10 DATA "“HMNS INVINCIBLE", “HMS 


SHEFFIELD’, "RNZS ATAGO”. “RNZS OF 
NTERBURY”, “Hs BRITANNIA”’, "USS E 


8520 DATA 4,3,3,3,2,2 
3993 STOP : BORDER 7: PAPER 7: 
; @: INVERSE @: CLS - 
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Hangman 


This is a superior version (by Raymond 
Blake) of the ever-popular hangman’ game. 
It has been designed so you can customise 
it to your own requirements and the word 
List has been left small deliberately to 
encourage this. 


To alter the words, simple change the 30 
in Line 70 to the total number of words in 
the List, and enter the words into DATA 
statements at the end of the program in 
the same fashion as Lines 1500 to 1520. 
Witty comments and the scope for 
alterations can make running this game a 
Long-Lasting enjoyable experience. It is 
even better if you can get a friend to 
change the word List for you, so you don't 
know what the words are. As stated in Line 
20, CAPS LOCK must be engaged before 
running the program, 


2e@ REN ENGAGE CAPS Lock 
BEFORE RUNNING 

@S LET Fse. ARNDONIZS « 

RB BORDER §. SHPER Fl ras e- 


S@ IF F=8 THEN FRINT =F 


elpi ThESE BSGHEN Willi Hens BEN; 
AT S,4; "iF you can“t guess their 
word.” 

SS If F=1i THEN PRINT ATF 3,8; "0 
bh ne, Nou they WER ic her 332° 
"Friend! Youv"ve get ta he ie AA 

6@ LET W=8: LET ga": LET C=o 
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7@ FOR T= TO INF iRNDs3E253: 


= ; SEES 82,7 

NEXT 

Be LET 2. =LEN RS: LET Be="----- 
-<---- “CTs yk3 

S98 FRINT AT 22,3; INK 2B; SS 

2@@ FAINT ST 8,8; INH 2; “Erier 
Your guess 

128 INPUT of: FF LEN Ce+ss3 ANE 
LEN CSi3b THEN SO FO iS ~ 

ASe@ FF Of4°R* OR OS: "°z° PHfoHM BO 


iee 
146 PRINT HRY 8, 


15@ IF LEN C§=1 FHEN Sa Ta i238 
168 IF C= FHeN {SY Se=cts= 
278 FF ES * 2s THEN LEY it= 


i 
_ 


13@ LET W=8:> FOR T=2 FRE IF OF 
HiTi=sCs THES! LST 823 :r5i =f < 

AS8 SF Dei38Si5i FTHEsN LE? i2-+2 

iss nNexT ££ 

SUS PRINT ST i2f,23; ENR 25322: IF 
WH=L THEN LST f=C33: EBS Sis FasSs+ 
Cz28: BEEP .6,S#fiR-0} -25 LEY ti 
ESNH+(CE ANG LEN C#=1} 

2S FF Wisi FHEHN FR Fr=322 Fo Re 
jo SEL? BS zs iE T 

22e@ PRINT AT 27,8; “liraorg tiettesr 
SB": PRINT AF 33,2; INK 4: 

2482 IF As=h THEN Sa FR S82 

25@ IF C=iR THEM GO TR See 

268 GO FO 28s 

SBea SRINT SY 3,28: FH 3: Geih: 
Next time YOU went heip., ~*~ "Dan 
"t cCGmRE FTUNnAIing te ge, Barren!” 
S2ee@ FOR =e FR -BeR SFE -2: BE 
EP .@£,3: NET F: GR FR Bae 

OSBe SRINT AY 2.@: INK @:7 FrRrarnsk 
5S yer. Buch. Remind me F “~~ “Que 
you & targe drink, FPRBrirer:i®™ 
SES $OGH T=-fSH To BB: BESS _SS,Ff 
>: NEXT I 

65@ PRINT AT 18,2; XINK 12; “The # 
Ord was: "; AF 22,35; 


B:"°, FT 
S6@ PRUSE 122A 
638 LET F=i: BO Ta ae 

SRBae FOR U=if To 28: PLY 258,13: 
DRAW BE,B: NEXT u 


Sie FOR YsLlier TO Sis: FLO 
> DRAW eae. NEST UW: RETUAN 


S2a FoR BA TO Bes: PLOY Y.is 
: DRAU 18 Bete NEXT u 

Baa FOR a= sfSi TO B3: FLGY £25, 
BPRAW 36,-3@: NEAT Go: RETURN 

Bd@OB FOR G=i83 FO 232: FLGrYT Sil. 
ae DARL -4€S,.8: NET i 

SSB2 FOR G=Se@3 FCO Sea PLOT v.31 
&@: DRAW 28,-328: NEXT wi RETURN 
Bee PLOT 3F3,3128 OAK B.-ae: 
ETURN 

BSG CIACLES 273,83 .F: FLY 258.5 
S: SiLygTr i735 
B98 PLOT isc,3e8 GPARW = ,G,.5s=-F 
4 ¥ RETURN 
cy J, 75 


q E 
S22 FOR Gs=FeOQ FR Fe: FPLGYF ist. 
DRAW -2B 24a: NEXT Gs RETUSS 
BB FOR Yrs FTO Fe: FLOFY fFeaeu 
ORR 2BS.¢: MEMXTY wi SSTUnSs 
S68 FoR vwssce FTO 682 PLOGY af3.d 
BPRAW -?.,-18: NEXT J: RETiSN 
SBS For JSS Ta BS: S20F srs 
EPRAW F,.-is MEME ws REPS J 
i588 GTR " TSOTOPE™ » “POKER” “Diy 
NET. , “SPHERE”. “FRALiLStY . “FTRIvGHSH 
KRANHGAROR”. “STTRIBUTE* , *SERADL I 
*° *ROw ae 
iS5i8 DATA “HOTEL”, "SALARY . CUNT 
RSE“. “MIRAGE. SAINST DHE -,. “RUT 
ER. “COLBUR”, “SO TNSOU | wre SHH,” 
VITSToN” 
A528 OATAR "SLATE, “LSHERSTrES “iF 
Et. Obs". > UBRINTER” , “COMPLIES , “FOL 
DER", “STUTS TON > “HRGAEINS~ .-°MUCE 


T*, “.tueHPER” 
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SPACE GAMES 


158 159 
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Stellar Evade 


This tiny program, written by Graham 
Charlton, produces a surprisingly 
entertaining game. You use the "z" and "m" 
keys to move left and right to dodge the 
asterisks coming up at you from below. 
(Note that the odd thing after the second 
equals sign in Line 90 is an "m",) 


@ BORDER 2 PAPER f&-: CL 

3a LET B2@=2i8: LEY p28: £EF case 
Sj: LET t=28 

SA PORE SaERS,B 

a@ LET t=t+2 : 

Sa PRINT AT wae 21; ; 

Se FOR z=: a a: 

Fe INK F: PRINT AT cc -BHPsaaa: Ss 

Sa NEx 

ae ver ne a ete ra fl RM S<s 
Qi -yINREY RHCT" RAMEY Hs 

ae IF ACREENS ib ekk ata THEY SB 
FEP 2,8: PRINT “Yeu scared “;t-: 
FOR xsl TO 282: NEXT x: AL 

L1@ PRINT AT e@,b; "aR 

12@ GA Te 2a 
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Space Trek 


Skilled programmer David Perry wrote this 
program for the book, In this game, you 
fly through each galaxy, avoiding the 
stars, aiming to shoot all the enemy alien 
battle cruisers. Once you've finished, you 
must Leave the gelaxy vie the Black Hole 
to penetrate into deeper space, 


Full instructions are included within the 
program. You move sround using the cursor 
keys, with "O" to fire. The pound signs 
should be entered as hash (#) symbols, 


i FEM 

2 REM SPACE TREK! 
= REM FLELSE FE LE LL 
4 REM 

= REM COPYRIGHT 
& REM DAVID FERRY 
7 REM 1982 

8 REM 

o 


? FOKE 223658,6: LET NUM=10: D 
IM N#¢NUM+1,.8): DIM NCNUM+L)s FO 
RF N=1 TO NUM: LET N(N)=(1000-(10 
O#X“n): LET N#(N)="GPECTRUM"s NEX 
r Ne GO SUB 2OGO: LET N#(1)="DAV 
E OK!": LET NCL) =So00 

1Q BORDER i: FAPER Os: INK 7: B 
RIGHTY “ts GES 

20 LET GAL=1: LET BON=3: LET & 
C=O: LET LEV=3: LET MEN== 
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ZQ FRINT AT ©,O; INK S&S: BRIGHT 
{3 " 
"SAT 21,03" 

Za FOR N=1 TO 3: PRINT INK Ss 
AT Neos” “oat NeSi¢? “sf NEXT Ns 
FOR N=4 TO 20: FRINT INE S:AT N 
2a! "SAT WN, Sis “Ss. NEXT W 

40 IF MEN=0 THEN GO TO 1000 

42 FOR n=1 TO LEV 

45 LET X=INT (RND#*14)+6: LET Y 
=INT (RND*29) +1: IF SCREENS (X,Y 
<<" " FHEN GO TO 45 

5O PRINT AT X,Y: INE Ss "kh" 

$1 NEXT N 

S4 FOR J=1 TO BONK2 

ES LET X=INT (RND*14)+46: LET Y 
=INT (RND*30)+1: IF SCREENS (XX, ¥ 
}<>" " THEN GO TO SS 

60 PRINT AT X.¥3 INE Gs "x" 

70 NEXT J 

75 LET X=INT (RND*14)+6: LET Y 
=INT CRND*K29)+42: IF SCREEN# (X,Y 
1232" ™ THEN GO TO 75 

80 PRINT AT X,Y: INE 7s "C)"' 

Co PRINT AT 1.2; INK 4; "SHIFS 
LEFT: "ss FOR N=1 TO MEN: FRINT 
INE 7e"a"e:s NEXT Ns FRINT AT 1,1 
Be INK 6;."SCORE? ":SCZ 

100 PRINT AT 2,8: INK 2: "HIGHES 
T SCORE: "sN¢L1): PRINT AT 4,03 IN 
K. os" 

105 PRINT AT 2.4: INK 23 "GALAXY 
2"2GAL: PRINT AT 3,143; INE 65 "EL. 
INGONS LEFT: "sLEV 
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110 LET De2: LET AsS: LET B=1. ached. Festad . “7 7 100 
fc , ~Dk10; GO TQ 120 
120 PRINT AT ALB" " 2460 BEEF .01.D 


S00 IF Dei THEN GO TO 4o9 
130 TF D=1 THEN LET A=A-t S00 TF D4 3 


310 IF D=2 THEN 6O TO S00 
Se ee UREN ERT iar 320 IF D=3 THEN GO TO 400 


SQ) LF B= THEN! LET Arend 320 IF D=4 THEN GO TO 7900 
160 IF D=4 THEN LET B=B-1 Sar 


340 STOP 

400 IF A=S THEN FETURN 

405 FOR N=A-1 TO 3S STEP —1} 

410 LET AS=SCREEN¢ (N.5) 

420 IF Ag="" THEN LET LEVELEV 
—t3 PRINT AT 3.263;LEVs" “2 LET 
SC=SC+100: PRINT AT 1.25:5C: FOR 

I=7 TO © STEP —-1i: FRINT AT N,B; 

INK I: "kK": BEEP .0O1,1¥7: NEXT I 

FRINT AT N,B3" “: NEXT N 

430 [IF At="*" OR Af="O" THEN EF 
FEF .,O2.,10: LET N=&: RETURN 

440 PRINT AT N,By ("F" AND NS): 

BEEP 201, 'N 

450 FRINT AT NB: ¢" " AND N2S)s 

NEXT NM: RETURN 

S00 IF B=20 THEN RETURN 

SOS FOR N=B+1 TO 30 

£10 LET AS=SCREEN® (A.N) 


163 IF Bot THEN LET B30 

164 IF BS3O THEN LET B= 

165 IF ASS THEN LET Azo 

166 IF A>2O THEN LET A=5 

167 IF LEY=0 THEN BEEP .01,50: 
IF SCREENS (A,B)="0" THEN LET 
BON=EON+2: LET GAL=GAL+t1: PRINT 
AT %.11;GAL: GO SUB 800: LET LEV 
=BON: GO TO 40 

170 IF SCREENS (A,B)<s" " THEN 
FOR I=? TO 9 STEP ~1: PRINT AT 
A.B; INK I3"X": BEEP .O2,1K7: NE 
XT I: GO SUB 800: PRINT AT 1, 12: 
" "3 LET MENSMEN-12 FOR N=1 T 
GQ MEN: PRINT AT 1.13+Ne"a"s NEXT 
N: GO TO 40 

180 IF INKEY$="7" THEN LET D=1 
190 IF INKEY$="9" THEN LET D=2 
SA So, TNBEN SE ST FER Niet (es S20 IF AS="K" THEN LET LEV=LEV 
210 IF INKEY%="5" THEN LET D=4 cai, PRIthy OY SLE Eas MET 


pga Se PRET aa GC=SC+100: PRINT AT 1,28;8C: FOF 


Sah Te Dee THER + PRENT ATi Bs 1=7 TO 0 STEF -i: PRINT AT A.Ns 
wick ees INK Is": BEEP .OL,0%07: NEXT I 
pias a : PRINT AT A.Ns" ": NEXT N 
Eg ee FOOD Pr say S20 IF Ag="*k" OR AB="O" THEN & 
eM gi ti EEF .O3,10: LET N=3O: RETURN 
hae ee eee ee S40 PRINT AT A.N: C"e" AND Nest) 
Feet Ra : BEEF .O1,N 
255 IF INKEY$="0" THEN GO SUB Ny Se shintl eee ae ee 


aC) : NEXT Nr RETURN 
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600 IF A=20 THEN RETURN 

605 FOR NeA+1 TO 20 

610 LET AS=SCREENS (N,B) 

620 IF At="EK" THEN LET LEV=LEV 
wis FRINT AT 3.28:LEV3" “s LET 

(=SC+1002 PRINT AT 1,25;SC: FOR 

- =7 TO 0 STEF -—1: PRINT AT N. Bs 

INE Is"K": BEEP .O1. E87: NEXT I 
: PRINT AT N,Es" “s NEXT N 

30 IF At="*" OR At="O" THEN B 
FEF .02,10:; LET N=20: RETURN 

640 PRINT AT N,B: ¢"f" AND N21) 
2 BEEF ..O2, 

$50 FRINT AT N.Bs ¢(" " AND N221) 
: NEXT N: RETURN 

700 IF B=1 THEN RETURN 

7OSG FOR N=B-1 TO 1 STEP --1 

710 LET AS=SCREEN¢ (A.N) 

720 IF AS="K" THEN LET LEV=LEV 
—29 PRINT AT 2. 28sLEV;" ": LET 
SC=SC+100: PRINT AT 1,25:9C: FOR 

l=7 TQ © STEP -1is FRINT AT AN: 

INK Is "Kk": BEEP .01,°0%7: NEXT I 

PRINT AT A.N3" “s NEXT N 

730 IF A®="*" OR AS="O" THEN B 
EEP .03,19: LET N=1: RETURN 

740 PRINT AT AYN; ("@" AND NO): 

BEEP .G1,N 

790 FRINT AT A,Ns(" " AND N2O): 

NEXT Ns RETURN 

801 LET B=2: FOR N=20 TO S STEP 


810 BEEF .O2,NK2: FRINT AT N,O; 
INK Sy" 


820 MEXT N 
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820 PRINT AT 3,213 INK S3" "ss PF 
RINT AT 21,23 INE O3" 
"s RETURN 

1000 PRINT AT 10,4; PAPER 7: INF 
Oy hae ted O:" YOU HAVE SCORED " 
7 SG - “ 

1010 BEEP .1.24: BEEP .1,22: REE 
P,.84,24: BEEP 25,21: BEEP 25,20 

BEEF .85,21 

{500 IF SC“=N(10) THEN PAUSE So 
: GO TO 1540 

1502 LET NUM=11: IF SC>=N¢(NUM) T 
HEN INPUT "ENTER @ INITALS! “3P 
€:; IF LEN F$*>8 THEN GO TO 1500 
1505 IF SC>=MCMUM) THEN LIET NON 
UM)=SC: LET N¢@ (NUM) =F Ss 

1510 FOR @=1 TO CMUM-1)2 LET B= 
N@(A): LET C$=N¢(A4+1): LET B=N(A 
ds: LET C#NCA+L): IF B&G THEN LE 
T N(AY=C: LET N(At+1)=B: LET N#(A 
JH: LET N&CA+1) = Re 

1520 NEXT As FOR N=i TO NUM-1: I 
FO NCN) SNON+1) THEN GO TO L519 
1520 NEXT N 

1540 CLS 


1550 PRINT AT 2,4;"HALL OF 
FAME!" 


1560 PRINT AT 3,4; "==sessssse=s= 
{580 FOR N=1 TO NUM-1: PRINT AT 


N+5.73 INK G3 ¢"s INE 23Ny INK 
S3")"sAT N+5, 123 INE 73N(N)s FRI 
NT AT N+#S,173 INE Ss N&CN) : NEXT 
N 


1590 PLOT O,@: DRAW 255,90: DRAW 

0,175: DRAW —255.0: DRAW O,--175: 
FRINT AT 17,8; FPAPER 2: INK 73" 
PRESS ANY KEY! "s LET [=n 

1600 LET I=I+1;s IF I27 THEN LET 
T= 

1610 PRINT AT 2.4: INE Is"H AL 

i “ORF ne 28 

1620 BEEF .O1, 17s FAUSE @: IF I 

NREYE="" THEN 60 TO 1600 

1620 GO TO 10 

2O00 BORDER i: FAFER 9: INE 7: EB 

RIGHT 1: CLS 

2030 PRINT AT 2,.6;"S PACE T 

R- Gk 1" 

2040 PRINT AT 2,63 "“£LEELELEELLE LL 

RELELLE" 

2050 PRINT AT 6,i3 "CONTROL YOUR 
SPACESHTIF USING THE CURSOR EE 

YS AND *Q” TO FIRE. THE OBJ 

ECT QF THE GAME IS TQ PASS TH 

ROUGH ONE GALAXY AFTER ANOTHER 
WEAVING BETWEEN THE STARS TO) 

SHOOT THE ENEMY" 

29060 PRINT " ELINGON BATTLE CRUTI 
SERS. WHEN THEY ARE ALL DESTRO 
YED YOU CAN LEAVE VIA THE &B 

LACK. HOLE. " 

20465 RESTORE 2085: FOR C=0 TO 7: 
READ HAT: FORE USR "A'"+C,HAT: N 
EXT ( 

2070 PRINT : FRINT " YOU *a’ 
BLACK HOLE 7"; INK 73; "Q?”" 

2080 FRINT = PRINT “ STAR *" 
2 INK 63 "R"s, INK Vet? KLINGON. ” 
we) SAR SOR ig) TNR Hee 
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O81 


PE Bs a 


GE! 


ge oak 
2982 


O, 175s 


FRINT 
7: " 


PLOT 


: PRINT TAB 2: PAF ER 
FRESS A KEY TO COMMEN 


O,Q:; DRAW 255,60: DRAW 


DRAW —255,0: DRAW O,-1L75 


2084 FOR C=O TO 29: READ HAT: FO 


KE USF 


2083S 
64 
2086 
C 
2087 
24 
2088 
a) 


2140 
IF 


DATA 


DATA 


DATA 


DATA 


DATA 
DATA 


"B"4(0, HAT: NEXT C 


24,354,356, 26,60, 90,102, 
O,224,94,49.49,94, 224, 
66,102, 90,60, 26, 26, 26, 
0,7, 122, 140,140, 122,7, 


0,0,0, 255, 255,0,0,0 
24, 24,24, 24,24, 24, 24,2 


LET I=90 
LET I=I+is IF I=7 THEN LET 


FRINT AT 2,6; INE I3;"S FA 


TR 
BEEF 


a 


-01,50-(Ik7): FAUSE 2s 


INKEY$=""" THEN 60 TO 2120 


2150 RETURN 

e998 FOR N=O TO 7: FRINT INK Ns; 
NEXT N 

S297 GO. TG. 2998 
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Stellar Probe 


This is a fascinating game in which, once 
again, you petrol a sector of the galaxy. 
As you might have guessed, there are 
aliens at the bottom of the galaxy, and it 
is your task to find them, and blast hell 
out of them. 


The program shows a map of the current 
Galactic Sector, along with its important 
features. You'LL quickly Learn how to read 
the map once you run the game a few times, 


At eny time you can move, scan or fire. 
Your scanners operate in two ways. The 
short range scanner, which Looks into the 
eight squares immediately surrounding you, 
consumes Little energy. The long’ range 
scanners look two squares in aé_e single 
direction, and use up more energy. 


The game ends if you Land on top of an 
alien ship. The aliens do not move around 
during a single game. You have Limited 
reserves in your energy bank and must try 
and kill as many aliens as you can before 
your energy is totally depleted. 


An alien (and the program invents names 
for the aliens for each game) can only 
shoot back after you have fired your Laser 
at it (thus revealing your position) and 
if the alien is within a single square of 
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you. Damage to your ship from an accurate 
alien shot is shown in energy terms (that 
is, energy is drained from your bank). The 
game continues until you Land on an alien 
ship, or run out of energy. Tim Rogers 
converted this program from an original 
program of mine. 


18 BORDER &: RANDOMIZE 

Se INK & 

B@ PRPER a 

4@ CLS % 

S@ GO SUB Saeea:- GO SUB 1Bae 

7@ Gao SUB sSeea 

11@ Go To 7e 
1818 DIM gf1h,28) 
2626 EIN £148,383 
165@ FOR a=1 TO 20 
£66@ LET giFPnN ats ,FN a3t¥F1=1 
14i2@ NEXT 3 
2418 Li giu,pi=2 
Life 5 (u,P3=2_ 
1125 rn=FN aid) 
1133@ FRI=FN = (82 
3 ZHSFHi sHii 
z & iN Ah 
z Fa bBL= 2zize 
i538 A -iz 
1548 RN 2 
=aa5 FN }=ENT (RND#x3 41 
2eaiea FN fb=ax$trn, TO ttrn, 
Ti+ icnis tirni,2}3 
2eais x=2 
Bese Tr u=S; LET p=s 
2G40 CET 33=" Eat 
SAise CIN c#is.o} 
24318 FOR a=i Te Ss 

Se REAL cBias 
2AiS@® NEXT = 
BA4@ LET at=e 
2isSe@ CIM b(Gi: BIM cis: 
2416@ FOR a=1i TO 2 _- - 
SiFAa REO bisai: READ cis} 
SiSa NEXT 2 
SISA LET © =1BSG+2eCGeRND 
DBESa CIM x$118,5) 
2D1Ia CFM ysiie,.s} 
SEAS PIN tte;33 


@® FOR s=1 Fo S 
S READ c#: LEFT tis,2}=Lin os SO7G IF eil THEN GO TG 4aee 
@ LET xStsi=as SSS@ IF aetsG@ FHEN PRINT AT 8:14; 
S RERD at: LET tis.,23=LEnN of “SLIifR SRGPS* AT B,14: "destroyed 
@ LST ySstai=os “,8T: &8O Sus 25862 
‘a NEXT 3S S598 PRINT AT 10,434; "Ship if toe 
GS OTA f£#(iG,ii} sites” 
°S FOR sii Ta 5 SOGQ PRINT AT ii,i¢;"at sub-quad 
iS LE TR=FH 3s £8) fant 
tA LET 6Tfna=Fr 2 fs} 36206 PRINT AY 342,14; FLASH 4; "4? 
S LET sS8t(si=FN s8:} SME SOD Se 
BS WEST 5 3628 & SUB 35868 
@ FGR a=1 Fo oc SSGe8 ; TN: BF 23,265 im Vs se CINE 
@ FOR b=8 TO 7 (USP 204+.5)1)-AT 14,14, "sector" 
@ RESp c 3648 PRINT AT 126,80; 
@ PORE USR CHR tidaialtb,c S645 Gh SUR ASA 
@ NENT &: NERMT 3 S558 62 TO 4526 
B RETURN 46G108 6€O SUB Seae 
@® ctLs HOSA SRINT FLASH 1; “Enersy banks 
® PRINT ATF 8,8; "STHR “: cempteteiu a@rained’ 
& GO SUB 325608 4830 PRINT “We killed “sat;" ali 
GS FRIST “NAP “; ens" 
Sh Go SU 2eHas SIiLSe PRINT .,cCS3(FPN atSysi5*: Ba yu 
SGG PRINT “RERD-OUT" SU WERnL to be“, "Captsin 2458i1in, = 
SG GO SUB i5ee eh 
@2 FOR a=1 FTO 32 412328 IF INKEYsi3"" THE £0 Fe 42 
a8 PRINT “#";: ee 
3&3 NENT 3s 44380 fF INKEYS#="" THER £2 Te <32 
$@ GO SUB 1500 r x 
SE SRINT AT_3,@;" i2c45ersse: Se Te BU | PR SBE Ae 
6@ FOR a=1 Fa ia iy THEN RUN 
F@ IF si218 THEN PRINT 3: ee T _— - 2 
3438 4160 PRINT .,,ctCS$tFN atSis;": you 
S8 PRINT “ae; Siviayus were“ 
Ge FOR b=1 FO if 4372 PRINT "as bat Gof a "5 
SS LET bS=stits ta.hb?2 +33 4i80@ LET rn=FH 3 (8) 
GG FRINT INVERSE 2: ps: 2308 LET rni=rFN 3sf8} 
@5 IF psi" “* FREN GO SUS i580 232858 PRINT FH |2sti 
-E@ NEMT 6 4238 PRINT END 
45 FF a<i1@ FHEM FPRINTF =: GO Fo 45S88 G2 SUR See 
2sae 4531@ FRINT ATF 36:68; CBiFN AafrsSii;* 
2e Se rir ws = Waur order, Sar?" 
33 RENT & 45435 BEEF .f.RNDSss5e 
48 PRINT “ 223450 F335" 45208 PRINT AY 37,33: "4 S€ean’ 
1@ PRINT RY S,434; INK |S: FHRFOR 4338 GO SUB i> 
> FLASH A; “‘Srergu: Banks “; INT 423548 FRINT TRS 32:°2 Here” 
— 4558 GO SuUB i5G¢ 
SS2@ PRINT AT 6.14; 45658 FRINT TAS 22; °3 Fire 
S3S38 FOR a=1 TO €v20ae 45708 GO SUB 1588 
S548 PRINT INK S; “EE; 458@ PRINT AT 21,8; "Press 2 2 of 
355@ NEXT a S an your consate* 
BS68@ Co Sus isea 4590 LET i $=INKEYS 
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aAS@S fF CODE is<49 OF CCSE is:5 
THEN co Toa soa 

4525 GO suB ise@e 

2680 Gc SUB Seea _ 
4612 IF i$="i° THEM GO To Gewe 
4620 G0 SUB SSBR+1SGRBHSURL 3 & 
463G@ FOR w2=8 FO 36 : 

464@ FRINT AT 21.3; "RBEZZ2 

46508 SEEP .81,5+12 

4568 SEEF .81,6 , 

467D FRINT AF 21,8:" ‘ 

4680 NEXT 2 

4698 PRINT AT 2i.8;" ° 

47@G RETURN 

S@Q5 SFEINT AT 15.8; 

Sis FOR e=1 Fo 6 

SQ2AQ SPRINT “ 

S@SeQ NEXT a 

SA4Q FRINT AT 25,8: 

S5ase RETURN 

BOGS FRINT TRS 123; FLASH i; INK 
72° SCANNER See 

BOB SRINT cSiFN 3afS)2;"-" 

BSSSa PRINT “tlona 22 ar hert. 22 
FSaeRgGeS. S2FF" 

S38 LET 1 8=iINKEYS 

6@4G SEEP 181.8 ; 
SQ@5@Q IF cape 49 OR COPE i #35 


jt fst fo fe fo fs Sw SS) OS) md OY ey yee +) 


Fr 
HEN GO TO 68 
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BEES LEF kK =VUAL = 

BSEFR LET e=t-iGet 

SEAS@ FF =e THEN GO TOG 6588 

aPce PRINT AT 25,8: " SFtanni2nP2: = 

Se05 LET F=e 

Bl@G FOR a=-iuri)d Te teiig: 

Bilis FOR p»a=-tp2ii TQ (piie@i 

6235 SBESP .-83,8 E. 

BiSS TF gives, FFrbi =5 THEN LET Fe 
5130 NEXT &: NEXT a 

6148 IF fF=1 THEN PRINT 2=3;"_shiP 
im Wicinity, sire”: GO To 612608 
BASS SRINT “Netning iff ¥alinitiys. 

6155 Ga Sue i568 

GBiGa PRINT AT 321.8; “Scanner aff, 
Sir” 

6168S BEEP .1, AND (Se Pe = 
SiF@ i- INKEYS=" THEN GO Ta si-f 
& 


Oo 


S275 GG SUB fsa 
S208 fF INKEYs="*o" OR INKEYS=~ 
THEN GO SUB SEG: Si Tol £2128 
B2iSS Go Ta 4532 
S580 SRINT AT 45,8:;c8iFn 21532 
: Dsrects4an= os 
S528 PRINT “nerth: 2 €ast:2 sau 
2. WES tS AY 
east EF INKEYSs2°" THEN GO Ta 
SS2e HREY & 
SS2e2 6 a) 
hS4e =F: 2#idQ SF SESS sg: 
THEN 2 S2ea 
5SS@ LET RL : $-1} #f+1 
S568 Let Pet Ch SS. Prec (hi ze 
= 3 5 
SBS7Fea FF 2z=1 THEN PRINT FLASH 1;° 
Positive’: B8o Fe 65928 
BSS8 PRINT “negsatire”™ 
S598 GO Sun 25086 
65535 IF ENKEYS$<so2"" THEN €0 Ta 
35 
BEGGS GO Ta 6516a 
FESS LET Fl= 
25 LET e=€-sSe 
FEISS PRINT “Beserings:" 
FAS FO SUB Asesa 
Fela CIRCLE 40,2¢,16 
FEIeG PLOT 4@, 
Fete CRAY @. is 
7asea ae SUR 3258 
FSsee RINT aT 326,16: “Sea 
Fase plot 40,54 
Fese seaAvw 1658 
Five Go Sue isan 
Fit PRINT AT 18,18; "ace" 
FTIise@ PLOT 44,2 
FT2d@ CRAY &2.-ié 
FisSea Go SUB 25a 
Fi6e FRINT RAT 32R,.16: "228" 
FiS8 PLOT 48.24 
7288 DRAW -15.8 
F382 60 SUB i5Se@sa 
FEi@ PRINT AY 23,44; "278" 
FESO TNPUT “fegrees? “ifr 
FHet@ ITF F335 GR 5. ie THEN Ga T 
F238 
FeS@ LET r=iINF tr 7453 +2 
Fess TF Ft=i FHEN RETURN 
FeEe@ LET 2gtfu,pis 
727@ LEFF stu,pi)=a 
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Lunar Storm 


David Perry's LUNAR STORM uses 
sophisticated string-handling to provide a 
mass of meteors and spaceships moving 
sideways on the screen. 


Below this is the surface of the planet 
McC Lariana (named after the intrepid 
explorer 0. J. McClaren who discovered the 
planet in 2068). You have to try and weave 
your way between these obstacles, and Land 
on one of the three Landing pads. 


To simplify an extremely difficult task, 
you'LL see you've been provided with a 
thrust button, to allow you to high tail 
it out of there when the going gets too 
rough. The game uses lots of sound and 
color, plus some rather clever UDG's 


Lp care 
STORM 


ENTER LEVEL Ci Ta 33 


S-SHIP LEFT &-SHIP RIGHT 
& -THRUST 
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MUTUAL CAML n A 


emer i i i 
~ 48 GLS. 
13 LET ET 
+i 
12 PRINT AT x.y 
3.8; INK 3; as; AT 
S$;AT if,a@ =) AT 
i= PRINT AT 5S, 
2-@3;b6$;5;8T 25.8; 564 
24 JF INT x328 
is IF Screens 
SO FO 365: FRINT 
45 SEEP .2i.éN#2 
27 PRINTF AT ew 3.uwie 
46 LET x=x4.5: IF IN 62452=254 
THER LET “%=-.5: LEY Sses=s€—1 
19 LET ‘4 (INKEy $="G) —1 INKREY 
- $a Se 
Z@Q = THEN LET y=32 
a4 THEN LET usa 
22 THEH GO TO 79 
ae. IF EN&® (¢».u3< * THEN 
sa Te Stn 
© tee a 
Se Snr, : BRIGHT 
‘SG PRINT AF 19,5, 2 —F =: 
FLASH 12:8"; FLASH @; INK ?; "_” 
> TNH Ss FLASH i: “SE LASH &:°E 
pie FLASH oO: eS UOINK OF UF 
LASH @:;"_“: INK GS; FLASH 4; "S": 
FLASH @;>™ ee FLASH - 45 
; FLASH 8; EINK F3"“_"; EINK 3; FLA 
2H 1; °8"; FLESH 6; “yi 
34 FOR n=1 TS 3: REAG c#: FOR 
sS=2 TO F: REAP b: POKE USR c(#+s; 
Ea HE<T 3s HENT ii 
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‘ cin nH bo Ful bl a 4 bord 
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S6 PRINT ATF 3,243; “SCORE :-*;35c 

8S? NEXT I: NEXT N 

SS FOR N=-208 TG SG STEP 3S: BEE 
P .@85.N: BEEP .@613.5¢6-A65 iN}: 
REEP .@G6,N-°2: NENT WN 

692 Cis : se Fro i8 
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THE LURE OF 
THE MAZE 
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ABSOLUTELY AMAZING 


We now look et a number of different, 
outstanding maze programs, most of which 
were written by Graham Charlton. 


Maze-maker 


We start with a program which draws a maze 
of any size, such as this one: 


When prompted to do so, enter any number 
between two and 23 to see the program in 
action. 


45 LET wWsINT (17S-s7 #5 
S@ PLOT @.8 
6a DRAW t.o 
Fe DORAL QW 
SB ORAW -t,@ 
[Ee DRA a, —W 
1920 LET x=s 
210 LET ye=s 
130 LET 2=2 
43@ PLOT &,Y 
440 IF (POINT (x4+5,.43 +POINT {X 5 
§-S3+POINT {X,U+tSI3 +POINT (x-S.G? 
tesa THEN GO TO 208 
i5@ LET z=z-1 
458@ IF 2z=9 THEN STOP 
i7vQ® LET x=CODE a$(z! 
18G LET y=CODE bs izs 
198 Go TO 1356 
SaG LET astiz1=CHRS xX 
S40 LET bS(ZI=CHRS & 
BESO LET z=z¢1 
S3Q@ LET r=INT (RNDe#4; 
S40 LET case(¢(r=83 -—ir=iiF 
SSO LET das ¥( Cr H=83 -tr =a} 
_269_ IF POINT (x¢c.uU¢d3 THEN SO& 
Sra DRAW c.ad 
2SBG LET xX=x FE 
390 LET yY=yutd 
=a@ GO Ta 1308 
1B6 


Mangled Mazes 


There iS no reason why the walls of the 
maze should be at right angles. Here are 
four MANGLED MAZES programs, which use 
walls at odd angles: 


PIN ags(gggg) 
CTH bs (agen) 
INPUT = 

LET t=INT 254 
LET weane tiyadzs.i 


@ 

¥ 

DRAM wrvel,ur2 
CRAM -rwvS.mvS 
{t-wi 72,8 
DRAW wv2-sS, -W/EF5 
DRAM w2-sS;,W2-s 
CRAW (t-wi 72,8 
DRAW -were,-w+r2 


DRAW -(t-wi 2, 
-= 
DRAW -« vss. —te YSsre 


AIF NPONTEHOOGISGS 
9 
0 
D 


AGEN CO CAO ddd ed od O00) fg Te 
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i 


Art Sedeennngenenneemanenemerninas 
— Len herr yet 0m 0 bees hmmm gym RN HE HH 


INPUT s 


LET w=INT 
PLOT @. 


i+ 295 
is] 


=- 
= 
= 


ZZ 


Iv OoO* nin i seon 
HR ys pal lin ees 
bade 


Sf. » SESGSOGCGRNTe00 
e) 
D 
2D 
ond 


ASYM A fea Pd te PALI ed CTY fs Boe od Dt be 


oct J pe feo frdh ot Jost foc 
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Q2G DRAW -it-w!) 72,08 
440 LET x=s#i: 

420 LET yv=s#18 

a3@ LET z= 

348 PLOT xX he 

Lea IF iat ce SS 
,4Y24POQINT (x. 


eae agigacs} 
DIM 6s (99993 


LET t=InNT {2 
Ge 9 


y +ER INT 
3 $POQINT 
Bee 


eae 


Che) COD BL Pe 


Aik ici, Steal 


1 


Coates ALCL CRMC FLFCUN ED I bes de fo fo 


Ch) 


o 


"¢, 


NOVOTEL PANO HE RAMAN EAE hal eimtamirnepaad summa noon epnaampmnd ee did 


Wh, 108, 


Agana 


mod AYO Ps) 1 


Ga Ta 13a 
ea} 


nm 
4 
y 
3a 


LET bSiz2 

LES z2z=z2734 

LET rf =INT IR 
LET c=s*tir<2 
LET d=s#ttr=@) 


eo Ta “isa 


a 
tyes Se: 
SRD 
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THEN GO 


F POINT (wt¢ec-.yFd) 


SQ LET qQ=INT (SOR (tet -s#573 
200 PLOT X.Y 
f STEP fe 


el IF x¢c?+255 GR x4*eers FRER Go 
50 
SO IF POINT (x+c.ui=0 THEN GG 


Th Faoa 
230 NENT ¢c 
S50 FGR t=-s TO s STEP ¢t 
SBQ IF x+¢c>2255 OR xt#te¢D TREN GO 
196 ror a Ta STES geg 
27 FG =-q gq 5s ed 
SEQ IF ytes ars GR vets es TREN GG 
Ta Seo 
239 IF POINT (x4+ct.4¢e3 =f TREM & 
o Ta 3seae 
Saa NENT a 
Sif ee c % 
Seae L Z=z- 
Saioa IF z=08 THEN SToP 
SBE LET x=COGDE af {2} 
SAaSR LET yw=CODE bs tz) 
Saad Go TSG i196 
S@OG LET a&(Z} =CHRES xX 
REID LET FH(TI=SCHRE Y 
Sa2Q9 LET z=z+1 
3Q LET r=INT (RND £635 Sa 
4a@Q@ LET cH=s¥((r=15 +f r=53 -{fr=sO83 — 
ir-s=ah3 4 +t = ee ee cay REE ae 
3252 =qQ: r<¢2} -tF35 
St LE 2. Pc Laee OR xtccS THEN GG 
Ta 3sesQa 8” GO 
SaQr7o IF wedii7s OR uta tO TRE a 
TO 3630 &. 
of so iF POINT (x#ct.U+a3 THER G&G 
Be > 38 


2330 LET w=Utd 
=33a 66 TS 190 


4 ., ‘s, i f 
: Sit , ¥ a co 
—_ 7 YF, \, PN 
—s oy A \ OE ‘ 
Jf J F i ‘ r . 
4 f as f Ly IN / } eee 
SS i f \ { ( . f . a 
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Walls of Suspense 


In this program, you have to race two 
computer opponents (both shown as "O") in 
trying to solve a maze. You are the "*", 
You start at the top Left hand corner and 
are trying to get to the bottom right hand 
one. 


The first one to solve the maze is the 
winner. Delete Line 3448 to make it a real 


time game. Si20 
A@® PM cH fea,asS 
if DIN aR LeeeR: 
id DIN bs LTBVeer 
28 CET 2 =213 
SQ LET 3y=17F 
4@ LEFF z2=1 
SQ FOR weet FO Se 
6@ LET cH#ivvil=" #RHRRRRRESERRRE 
THERARRHRRRRRRRRRR 
Fe NEXT w 
Toa LET c#tx.yi= se 
118 IF c#$tx+e,y3} ="R" OR cBin-B, 
Wis" R’ OR CH$tie Yeo. ="R DH cBim, 
Y-23) ="#%" THEN GO FTO tewke2 
1426 LET 2=z-i 
i3s@ IF z2z=8@ THEN GO Ta Seaawe 
1¢@ LEF w=CaopeE axstzi 
iS@ LET y=CaQvpE b8$ 22 
268 Ga TO 10@ 
280@ LET sa§iz)} =CHRSE x 
LM@i@ LET pS fz) =CHRS 4 
1#2eaea LEY z=z2z41 
1@3@ LEFF rf sinyr tRNbs43 
244dQ LET c=t(r=@)}—-tr=223 
sae iy d={f=2ik-{r = 
ai CHixN¢+R HC; YFSHeG3 =" " OT t 
60 TO 182@a 53 ery 
TBVO@ LET c#ixec.,u3¢3 =" 
1Q6@ LET cH#ix+BHee,yYsS4ugi i" 
2@98@ LET »x=x+fee 
L1@e@ LET y=u+eed 
41118 GO TO iae 
SEBe FOR w= FTO Be 
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1a Pasee INK 7; cRiv-oS Fe + W ll f S 
2e “T w 
RA PRINT AT 18,23; "2" a Oo uspense 
@ea LEF x=2t R _ 
@S LEF pai In this version of the game, you are only 
oe LEY ves racing a single computer opponent. 
45 LET g=2 However, it is far more intelligent than 
2s LET ved the double opponents and can race as fast 
2S LeT 1=8 as you can. 
@@ PRINT AT x,95 "4" 
JA LET zs=-INKE YS = BIN veLSS 
2Q@ IF z$="" THEN GO Ta 3118 CIM 2${19 
BA LET cHtzga"'0"3} -12HH=°RF"2 14 DIN bsl(ia 
4Q LET da=tzgae"S" -(2EHBH=°5"3 =O LET xX=i13 
6@ IF SCREENS (xc, yedi ="R Th 2G LET y=1F 
BEEP 13,8: GA TR_ Base 40 LET z=1 
7a PRINT AT x.y. "RR" S@ FOR weet To 32 
SQ LET x =i+¢C¢ SO LET c#iwi=" HHUMHSHHABHAAAHH 
SQ LET yrsuead HHNHKHHRRHHHSHHSS 
@@i PRINT ATF x.-4; UR Fa NEXT w 
A@ IF xw=19 AND fase THEN aATRP 290 LET ce ix Ore" oo ss 
a@ LET s=s- 110 IF c$ix+2,y) "8" GR ee lloe. 
PAM IF s=-i THEN LEF s=2 gia"S” OR CH(X, GHB =H" OR cStx, 
@aQ PRINT AT P,a: “EO j-2)="8" THEN GO TG 1938 
6@ IF s=4 7 i) LEY oc=e 429 LET z=z-1 2 
rAB LET c=te=2)-tse =33 330 IF z=@ THEN SG TS 2OOG 
so LET d=(s=@) -ti=22 $40 LET K=CODE astzi 
4@Qsa IF SCREEN$ ip3c.gedia"R" TH 450 LET w=CODE bets) 
EN LET s=es42: GO TQ 4Re5 169 Go TO 19 
4@5@ LET p=Fe+c 3800 LET af {23 =CHRS « 
ZOe6Q LET g=a3c 2010 LET bs (Z1=CHRE ui 
42065 PRINT AT P,as *O" 3o2a LET z=z+2 : 
S878 IF p=19 AND gseS THEN SFOaFP 10@3@ LET rc=iINT (RN #42 
Ss6aa LET t=t-1 34@ LET c=(r=07 —(r=2) 
S7aa IF t=-i THEN LET t=2 2050 LET datr=e)—(eser. ww ; 
SQ@a@ PRINT AT u,v; “SB TS60 IF cHl(x+Bec.u"FFear= THE: 
BQQ@ IF t=4 THEN LET t=2 GO TS_i9030 ‘5 
Se1AQ LET cH=tt=@i-tt =e: 4970 LET c$ixtc.ytds= ae 
SE2D@ LET d=tt=22} -—Tt=a: pa eo ERIN ESR a CRASS : 
BSe@3@ IF SCREEN tusec,V3edi ="R" Pa iad M=x 2 
6950 2F -SERESNE “Vj weae TY Tia® LET _u=u+2ed 
BEBA LET wade 1330 GS TO 199 
BASBR LET vavid Saga FOR w=2 TO Sa 
SQ@65 PRINT AT vews “O" =810 Se INK Pircg*giv.s Fa 3 
eO7G IF u=2s AND V=2e THEN STOP S44 ay aT 19 menos 
Sasa Oo TC iae SaaG LET xX=2 
Sp@O@5 LET pH=i 
S010 LET y= 
3815 LET g=i 
492 
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SESS LEF s=8 Ra Rae HEGHREEEE BZEaSR2aRnH 
Si@O PRINT AT x.uu Fe bad HH 4B HHHR HH t t # 
Si2@ LET zS=INKEYS # HR KR HRHRHHHKH BHEKKHHHH 
2320 IF z%$=""" THEN GO TS 3119 al # FR RRHRHHH # zt # 
2i28 LET gi (2$2-8-3 -128s°S") gonshebed ghageaess # E*8** 3 
~a¢% =tzigsZ= ; -itgr= = ‘ ss ‘ 
Si6@ IF SCREENS (x+c.,utds ="S" TH HRHEHHH HR HARHRHRER RHR RHEE 
EN BEEP .1.@: Go To S600 zt tt a un RRR HER was # 
2 Perr eee gee geeee SeEeaseEE Beene & 
acy x= E 
2i3s0 LET het ae # HHH HH HRRRHRRER H RRR RB 
S2aG PRINT AT wy SE eR RR H HR HERAR 2 @ # BR 
S219 IF x=1i93 aNd YUS2S THEN STS o RRRHE 4 RPE Big ago 1 aa ya a 
S680 LET s=s-i 3 
3360 PRINT AT pas a "a'" 2 gue a nae 2 Boa a # 
S9¢ e 
+800 iF s=4 THEN eT s=6 | Sekegesaeetegees HHRHRHRRRH BW RRR HE 
py ad et ben it # ahH HHH # RR # # 
4020 LET da=ts=@) — (see) |. sg TH H HMRRRHH HRRNRARHHA H BHRBR B 
40350 IF SCREENS (pPtcagtas= & aq HHHEH BHH tt RR 
neg ee TS 4659 HHHHEHRHHR HRHRHKRAHHR BRRRRRRRE 
2s } = a | 
260 LET g=qid 
A265 PRINT AT P.ai “G" aa ae ey . 
$6 IF pris AND q=29 THEN STOP i@ DOIN aHir 28,423 
50 GO TO 2196 2Q OIN asiiages 
S@ DIN bs (1Aee2) 
oe nae cH (18eaa2 
= L x=5 
aa =; 
Dual Level 3-D Maze S@ LET y=ei 
Be LET w=2 
i ; =a 2 = 
In this program, the maze is on two Levels ise Poe R=5 +5 Ss 
connected by a number of tunnels. et Sad ta. bis=" BRRRRRRaRE " 
12e ; 
3 13@ NEXT 4&4 
The display shows the top and bottom 248 LET fe RY se) =" 
4 i ; 450 IF dStx4¢2,4,2)="8R" OF GRIN 
floors, along with the interconnecting 2yg.zl="#" OR d$tx,942,2)="R" a 
tunnels. You move through the maze using SetM%,Y-B,zI="#H#" OF Jsix -9-2FBh 
wen to : Non "RH" OR dh(X,YyY,2-21="R THEN oa 
the cursor Beye. to "B", with "9" to go Oo 1e8R ‘ < 
up a level and "4" to descend. The maze is i6@ LET w=w-41 
invisible, but you can delete Line 2000 if pe fer et cobE ast TU Sew 
5 is x=CtC ti! 
FOU, WENT“ POSES ths {S2 LET Y=CObE bs til 
218 5’ ré"Gsee oF 
2 G : 
You have to get from the top Left hand 3500 LET ag twi =CHRS x 
corner of the left hand maze to the top 1@ie@ LET bSstw) =CHRS ¥ 


right of the right hand one. 
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28220 LET c§${iwistCHRe = 

2838 LET wowed 

1842 LET r=InNF (tRNpse) 

2658 LET ca=tr=l -y¢r=23 

I186@ LET d=(r=2) tr =a 

ty Ler @=(r=d) -tr =82 

igé6e d#iN+24cC,y4+54¢,24D46) =’ 
- THEN GO TOA 1ede 

iSS@ LET dS ixec.ys+d -z+ei =" * 
L18@ LET dS(x+24C,yN+24d,24R He. = 
214390 LET x=x4+2%c 

Li28 LET yr=ureed 

2338 LET z=z2+2xeE 

Tia GO TQ idea 

SOB08 BORDER @: INK &: PRPER @: CF 
is 

SGA FOR b=e TO 2S 

SBSe PRINT dseiG.,.b3; 

=HB3Sa@ PRINT dsid4, bl; 

2G4e PRINT JdBis.b,. TO se 

Sa5Q NEXT & 

2868 INK 7? 

=1080 LET ¥=2 

SlIe@ LET y=2 

S21S@ PRINT ATF 129,38: "% 

S8aaQ PRINT FLASH 1; 8T x a 
S@i1€Q IF x=192 AND y=RR tuoi gear 
SQ@S0 LET z$=INKEYS 

S830 IF 2zs="" THEM Gh FA ARSe 
S@aea LET cHt(z$="6") -(2$s="°R "2 
S@S@Q LET d=t(28="3") - (2 SH="S"1 S334 
[fou ONL = (2 ages" 

S@S5 IF yvedi@ THEN GO TR AawRee 
3960 IF SCREENS (x4+c,¥4¢d)="#" TH 
EN GQ TQ Be2e 

3@7@ PRINT AT x.y; "ER" 

SOSQ@ LET x=x+c 

SGS8@ LET y=udted 

Si8@ GO TO Beaee 


Scrolling Maze 


In the next program in this section of the 
book, the maze is four times bigger than 
the screen, which scrolls across when you 
hit the sides. There are two versions 
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given. The first scrolls using a machine 
code routine, and the second version does 
much the same thing in BASIC, 


The object of the game is to move from the 
top left hand corner of the maze to the 
bottom right hand one using the cursor 
keys. Delete lines 3070 and 3075 if you 
don't want to leave a trail. 


een UE AES Se PE Oe tec Oe CoM A HC Op ar Pa nn On Se Ce 


He 
HSRKH HHHUH AR HAH RHE HHA RRR 
= # 8 # 2 #2 2 #2 
+ t # # # HHHHH HHHHHHRH HHHRR # 
s+ + RHR # t Hue 
H HHHHH H R HHMER RRR BR RR RE 
bea n 2 : ReReerirete 
® HHHARHH HHH HHHHH # HR BR HHR 
# # # # # ® # 
H H RHA HAKHHAKRR RH RR HRAHR RE 
# #H #R RRH?”?” 
# H ROH RH HHH RHR BR RR RHRKRRB 
% 2 RR # # z # RB 
# HEH H HARAHEH HEHE 2 ia ae 
= HR 2 
és 5 HHH H HHHHHHH HER BH H HER 
& cae ie # aR #22 
H#HKRRR RH RES RUBRRRANE RRRER # # 
: ae ae 
Ps HHH # H HNHHHHHHH RRERHR RHRRRE 
& # a # # #2 

2 CLEAR 59999 

4 FOR a=6Q@009 TO 69155 

S READ n 

= POKE an 

1s NE? 

is OIH c$(45,65) 

2G DIM 32%(1009) 

25 RANDOMIZE 

39 DIM &S{( 1009; 

40 LET x=43 
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SO LET w=65 

60 LET z2=1 

FO FOR w=2 TO 4a 

SQ LET ctchl(wis" HAKRESHSHSHHHHHHE 
RRR HKHRHRHHHRHRHRHRSRHSHEHSHSSSSKSH 
HHHHHHHHHRHHRESS 

Sa NEXT wW 

188 LET c#ix.,us =" 

430 IF c#tx+2,y4u} ="R" GR c#etix-2. 
BIi=a"H’ OR cH(Ix.yY+BI =H" GR cPlLx 
2 Zena TO 1668 

=@ THEN GO TSG 2990 
XSCODE a ¢z3 
wH=CODE Siz: 
S To 160 
isaa ase fT) =CHRE * 
i810 bSe(ZTISCHRAE 
1,229 Z=Z4+1 
i8sa r=INT (tRNDxe% 
12498 rT cHtrsO0) —(r=i3 
29590 Ler d=tr=2) — tr =s3 
2@6G6 IF c$(x+2scC,.NU+t+2%#0Gi = THEN 
Ga TO 1938 
2a7G LET c$Hlx+e,y+ds="* * 
38538 LET c$ix+2et.,yutsetgi=”" * 
4835@ LET *=xX4+24C 
2123390 LET yvau+S¥d 
33210 GO Ta 1866 
S2Qao FOR ws=2 TO 2s 
SISO PRINT c$ie.,.S TH ss; 
=82G NEXT wi 
S380 LET x=<—1 
#Z1i@ LET yi 
=120 LET pP-2 
=i38 LET q=2 
SOG PRINT FLASH 1; Fr xa Gs at 
S810 IF P=S53 AND q=sc THEN PRINT 
AT 209,509. “xX" 
GB20 LET ZTR=INKEYS 
Se@3Q@ IF =¢="" THEN GO FS FESS 
SHaQ@ LET c=(z$a"6"3 —({zgE="P"3 
385g TE sEREERS Uxhe (gtai 29s 
Se6a NS (X4+c, =“S° TH 
= GO TO 3ese * id ma ¥ 
Se7Q PRINT AT x.u; “EF 
S39 LET xX=x +e 
198 LET yY=y4d 
20 IF ys=Q@ THEN GS sur S555 
S@ IF Y=S1 THEN GO SUB 53109 
40 IF *=@ THEN GO SvEB 5290 


198 


2350 IF x=21 THEN GO SUE Sso8o6 
S258 PRINT FLASH 1:;AT X.us" 2" 
3470 IF x=20 AND yY=SOS AND Pras 
NO Q=33 THEN STOP 
328a@ Go TO 3SoO1i9a 
EGG RANDOMIZE USR €O0a2 
SOHis LET vault 
Seis LET q=d-2 

2G FOR w=98 TC = 

3@ PRINT AT w.@;cHip tw. gi 


140 NEXT w 


i9G RANDOMIZE USR S6OoO99 
PR3IG LET g=y-i 
ais LET Q=4+1 


Sis 2 

SisG PRINT AT W, Sli c#iptHe,. Gta 
Si2Q NEXT w 

Sise RETURN 

S2eaQ RANDOMIZE wSR S622. 

S210 LET x=x 41 

S2is LET p=p-1 


RANDOMIZE UsSR ESC4> 
id LET x=x%=-1 
iS LET p=pita 


26 PRINT AT 21.0. c#iptz2i.9g TO 

s14 
=SaG RETURN 
SOOO DATA 3S.9,64,65.,62,132,5,53 
SeLA DATA 35,.94,43,.1315.55,15,845 
S220 DATA 124,595,621. 22,242, 202 
2100 DAT 33,255.67 ,.22,.9,.62,1i192 
S210 DATA 6,31,45,94,.55,125.45 
SiZGQ DATA 16,.249,114,45.61.52 
BSi3Q@ SATA 242,501 
S2a0 CATA 3G,.9.64,27.52,.5648,289 
Q216 DATA 2215.,.1324.25,.5.32.26.113 
S220 DATA 121,2856.7.254,2.22.2 
3230 DATA 151,16,535,19,i15,.381,15 
S240 DATA 40,193,122 ,3236,.7,254.6 
S250 DATA 46,22,254.,7.,752,2295.225 
S26Q DATA 217,90, 7,25,203,24.,54i7 
S270 DATA 8209,225,206,36.124,254 
S280 CATA F2.,32,.204,201,225,55,8 
S290 DATA F.25,.2535,.225,.24,1965 
S3a@Q DATA 3S,255,6F,17.285,.57,25 
S318 DATA 213.,14,.25,6,55,26,119 

199 


S320 DATA 121.2356,7,254.13.S52,2 
Q3350 DATA 151.16.45,27.16.2413,15 
S340 DATA 40,21,1212,.256.7,354,.09_ 
S350 DATA 46,24,254,7,52,.225,2i5 
S360 DATA 17.60,.7,1367.237,.582.299 
Ss70@ DATA 24.215.,.2609.225.21.57 
S380 DATA 124,254.79,.209,.38,3291 
S390 DATA 229,55.69.7.255,16%.25F 
G4aQ@ PATA 52,235.225,.284.195 


This is the BASIC version: 


16 BIn ¢<c#i45,657 

20 DIN aS(100@): Dirt rly al 

40 LET X=4S3: LET u=s63S: ri. 

Fe FOR was TOU de 

SQ LET c#iwi=" KHHASHSRAHASHSHHSH 

HRHBHSHHCHHHHRSHAHASHES HSS 
HERSHHREHEARRRRS “ NENT 05 

100 LET csix,uis”" ™ 

310 F cH(x4+S,93 ="“R" GR ckix- a 
g3}="R" RocSt(x.4utB3 =a°H* GR cRix. 
s-Si="R" THEN GQ Ta GLOSS! 

330 LET razr-2: IF r= THEM 5&6 F 
2 2809 

249 LET x =CODE agizi 

i568 LET yv=COCE bpsizi: GO TG 18s 
18@Q LET agsit(Zz) =CHRGE & 
3220 LET bS# (213 =CHRS YY: LET z=zt+i 
1330 LET r=INT {tRND#43 
23040 LET catr=O3 -tr=23 
1850 LET ga=tr=s! —tr=s7 
1G6G IF cHtx+2e¢c.u¥rStedi = * TRE 
GQ TA 1936 
LBS LET cHixtec,yedi =* 
iBS0 LET clk +2ee.+tSe'eai =“ “ 
1990 LET x=x +240: LET unr-vurcre 
Ti16 GO TS 198 
SSGG LET x«=2 LET w=2 £ET Pos 
SIS LET gq-2: LET csHiss.657 =x" 
Sasoa PRINT AT @.G; 
2160 FOR w=p Ta pe ' 
2Lia PRINT c$Htw, TS g+3513 
2220 NENT w eee 
3809 PRINT FLASH BiAT xX. wee 
BPIQ IF x=20 AND u=30 AND p=25 
NO @q=GS THEN STOP 
Se20 LET 2H=INKEYS 
Sas0 IF z%=""' THEN GO TO 3929 
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4&3 LET ca tz go"G"F3 -iT So" ss 
S250 LET d=(z#="S") -tze= — hae ae 
AGEQ IF SCREENS txtceo,U4*eds =" Tr 


5 IF uw=@ THEN LET G=yeii LET 
452: ,S0_29 23EN LET yey-2: LET 
gti. GOOTOER TET xex42: LET 
Pegs ape Bee eS Ler Raw? LET 


+1: GO TO 2096 
GO TG 3006 


Rollermaze 


This maze program was written by Neil 
Pellinacci. It was written for the 16K 
computer. It will run on the 48K machine 
but may be difficult to modify because the 
program's machine code will have to be 
altered. 


The aim of the game is to travel across a 
randomly-generated maze, first from top to 
bottom and then back to the top again in 
the shortest possible time. To enliven the 
game, bits of the maze roll Left and the 
rest rolls right. You, however, don't 
roll anywhere. 


You have three Lives and you lose one 
every time you collide with a chunk of 
maze to your left or to your right. A 
siren noise sounds when this happens. The 
number of Lives, together with the time 
taken and the best time so far, is 
displayed at the top of the screen. 


The title page sequence begins when you 
start the program. This tells you which 
keys to press and also the top ten times 
and the names of the players’ which 
achieved them. 


Presssing "K" at any time in the sequence 
will allow you to change the control keys. 
Just follow the instructions. "S" will 
leave the title pages and start a game. 
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ROLLERMAZE has five Levels of difficulty. 
I suggest you start with Level one, then 
look at level five in action to see the 
difference, The clock starts as soon as 
the maze appears. If your final time is in 
the top ten, you'll be asked for your 
name, which you will then see in the best 
scores List. 


To put the game into your machine, carry 
out the following, and remembering to 
VERIFY after SAVE: 


1/ Type in program one, the machine-code 
loader program, and run it. You should get 
the message 'S STOP statement’ if the 
program is correct. Now save this program 
on tape as you may need it Later. 


PROGRAM 42...Mathine Code 
S REM BUTS PoOKSr 

28 PGHE S5655.i18& 

2Q CLEAR Sisss 

S@ READ aca 

48 FRERD site IF sut2ze=-i2 THEN 
=O To Sse 

SQ FF Huts=3S29 THEN sTaer 

S@ FORE ada. bute 

F@ LET asdd=sddi 

BQ Go TO 42 

1QQ OGaATR SSSR .S3,395,54,205, i559 
,2S5.55,268,62,2055356,212=,52,22 
@2,6¢2,53205,1358,i255,35,186,64,285.= 
SA.1PS.35,192,64,2085.2036,.,125.535., 
@,72,i7,532,3 

4349 DATR 295,209 ,.155.325,2595,i15¢ 
,4125.25,285.288,1325,25,285.1259.2 
25 

120 CATA 325.285.2908 ,13255,.25,895. 
458,125.25 .28395,288.22E5.S5.=85.125 
S,225 
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230 BATA SS,.8,.8G6,29S,2ua, =,.25 

2065 .i50. 125,25,205,269,35 2s.2 
as .158. 225. 25,285,228, 225.4 PS. =i 
220 SATA S2i58,29F,213,22 S35, 
43.37.352.6,.6,&8,i9S7,.355,i26. 3.23 
$3,.245,25.241.5.38,38035.252 3.i6 
251,356.1395., 26.236 .241,.225 9.2 
S3.2@2,-1 

25@ DATA 32260,197,215,229.,245, 
i?Ff.32.8.6,8, 197 .435,25,126,283,534 
,245,287 sea? (62,35 ;281,;8.52,293, 
3@,35,16,253, i167 ,2@37 ,62,56.199,4 
5,238, 24i, Zac, 289 .i99,261--i 

358 DATA Seese. S3,.8,.64 ,8.2932,1¢5 
7,5,913,35,126,45,119,25,38, 24! srk 
33,.54,.6,305,26,248,2013,-21 

ive CATA SESS 5 S 2 ¥ 2 295 2 @, i225 > is 
2251.55 ,4,55,3254,523,352,.8.1.1,09,2 
81,254 ,390,52,4,1,2,0,261,.,254,75, 
S2,4,1,0,08,2801,254,88,32,.4,1,4,8 
3201,254 ,72.32.4.1,5,5,25291.1,8,6 
s2Bi,-i 

180 GATA 32400,553.,.9.585,.6.24,14, 
34.35.1426 ,45.13219.355.15.32.245,54 
2-2.35.26,3413,.281.-i 

290 OATA 32500 ,5,1.19F,.55.15.8, 
17,48 .8,229,255,261,3,225,:i7,6,¢6 
2i167,237,98.325.2594.255,.32.2957.21 
93.126.238.293.-21 

iSS DATA 3SSS58,6.1,18F.38,8,5,1 
*,24,8.229,.3285.1612.3.225,i17,16,0., 
tS 2 aeoy »:302,.352,246,193,136,209,291 
so>SS 


2/Type RUN again. When the program stops, 
type NEW to remove the program, and 
nothing else, as you still need the 
machine code. 


3/ Type in the main program, program two 
which follows. Then save it directly after 
program one. To save it, use SAVE 
"ROLLERMAZE" — do not use Line 9600 in the 
program. 
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PROGRATM 2..-MNain Gare 


i REN Ze Rollins Mara ff 
Neit Petitanacci 


S90 CLS : LET @$=“ENTER LEVEL: C 
- BZFELZCULTY &t=—Si “ 
SiG INPUT {eS -LEV 


ee@ sf Ley< GR LEVsS GH TLEVCcod 
NT LEV THEN LET BS="ENTER A VUHOL 
E NUNGER, 2 TS 5°: Go TG 2S2e 
BSOQ POKE S2S5i,.5: POKE SSt55.2 
POKE S2557.3: PORE Se5es.i 
S@e SGRDER 2: PRPER Ff; OLS 
GiG PRINT AY @.G; PAPER 2: EINK 
Ta THE RGLLAUINGE MASE 


Pi ay 
340 CRINE RT 424,29; PRPER &; INK 
$956 PRINT AT ©,&: INK 2:S¢:A7T = 
2,8:;8 
S68 GO SUB SooaG 
1@@5 INK F 
| 291@ FOR S=4 TO 28 STEP 2: SINT 
ST A.S 5” 
": NEXT & 
4@3@G@ FSR S=2 Ta LEV: FOR B=S To 
2G STEP 2 
1THBAQ LET BL=INT iRNDStGi +i. ERIE 
T AT 5.61; “Se 
| 1658 NEXT 6: NENT A 
1268 FOR A=32 TO LEV: FOR B=4 TS 
2a STEP 2 
197@ LET Bi=EINT ‘tRNPsS@?+i. PRIN 
JT AT &,51; INK 2;° 
| LQS@ NEXT 5S: NEXT & 


2832 FOR f=3 Ta 26: PRINT AT R,S 
: OVER 1; EINK _ 2:58: NEXT A 

149@ INK ©: RETURN 

12088 SC SUS e8S 

39813@ LET LIves=3: LEFF F=8 

2EQG8 LET FiM=2i: LEFF L=2: LEFF f= 


2OiG PRINT AT 1.6; PAPER ©: INK 
6;T;AY L,.C; INK 2; PRPER FT: 
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2o28 =u So BME = res 
Se Gane SSasne 2° ASS THE 
2@25 SF RA=2 FHEN IF THES iF 
i geraiaaks fi_-2,63 ¢,»"" THEN: LET Lak 
283@Q FF A=2 THEN IF Liat RR - 
, Ton eERS C232 2S) Rr THEN CEP oe 
in $ 

2ESSS LET C=C+iR= SN O<3t3 - =F 
sn. aces A=4d SN 323 tR=S 
2eae iF SOREEHS ik. ,G3 =** TFHEM LE 
§ ASUS BSSSsse. SS Trae fies 

SOS8Q TF L<SsFinN THEN PRINT BT L,c 
ie 22"2' 5 “LET THI BG TO 26 
2G8O0 IF FIN=St THEN LE Fin=2: 

a Fo Bose RoN ET Fis ‘. & 
297ra FoR 6 i: 

2e@ STEP = = 

24 ,5- eB 

24,58 

Bese 

2iPe 

2,19; EI i 

21S IF LIVES T&2 THEN Go TG Ean 
eer se ST 6,8: INK i:S#:e8T £2 
= 


2438 PRINT AT 6,21; INK 5S; “SAHE 
QUER’ | AF 25,231; “Gane GUER* 
214@ FOR R=2 TO 256: LET B=USR S 


2206 FOR A=i TO 2B. EF FeHins TH 
EN GO Ta BBS 

2210 NEXT FA: 68 TO AaRae 

2SESG FOR S=2 TO A STEF -2: LET Be 
aie £6? RET RSiBsti; =Hei N 
2P4@ LET HUAI =T: INPUT YPLEAS 
YPE YOUR NeMNE-“*: LENE. He ter He 
{A} =0% LET HStR. FO LEN NEF21 =F 
2250 GG SUB S500: GO TO 4se78 
4@@@ SCRDER @: PRPER &@: CLS : RE 
M TITLE PASES 


481@ GO SUB 51068: LET INK=6: &G 
Fp ag oe REN TITLE 

1626 OR C=i TO 28: Gl SVE 4500: 
Ba ie PEER 2S3556="s" “GR CHRS 
PES ‘S6="K" THEN GO FTO 4206 

2 


ral 
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49049 GO SUB Se0G@: REM OPTIONS 
4Q05@ FOR C=2 TG 28: SOG SVE 45ece- 
LE CHRS PEEX SS5S56="S" GR CHRE 


PEEK 
4950 
4972 
493e 


SSS56=“H" THEN GO TO 4185 


N 

GO SUB SS@e@: REHM HI-SCORES 

FOR =i TO S88: EF CHARS PEE 
KR 23SS6="S"“ OR CHR PEER 235S6=° 


KR" THEN GO TO #is88 

4Q@3@ NENT A: GO Te 4geo 

4199 LET S=USR S250G: IF CHRE PE 
S 


EK. 23535 


a Ta 


S6="S" THEN GO SUE 4206: 
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24238 GO SUB 4208: GO TO 4586 
4229@ FOR A=2 TO Se: LET B=USR Se 

2SQ+USR SESG8: NEXT A: RETURN 
43908 REM CHANGE KEYS 


iS 


431@ INK @: BORDER &: PAPER €&: © 
: BORDER S 


4315 PORE S2S57,2: POKE 32551,12 
: POKE S2555,1: POKE SSses, is 
4526 PRINT AY 41,38: INK &:; “REDEF 


INE KEYS 


A322 


RPT APPEARS” 
434@ PRINT *** 


st = 
N = 8 

R NEW KEY WHEN EACH 
TNE 
2 


PRINT ~* = 


ER 77 “UP"; TAB 2; 
4358 LET K=PEEK 23556: IF X=255 
THEN GG TO 43558 
4S35@ PGKE S2S5it,K: PRINT PRPER 
7;CHRS HR 
4355 LET S=USR SGSS5@: FOR S=1 TR 
15@: NEXT A 
437@ PRINT © INK 2:TRE 2 PAFER 
73) “BOUN' [TRE 21; 
435@ LET K=PEEX 33556: IF K=255 
THEN GSO TO 4358 
439@ POKE S25i9.K: PRINT PRPER *¥ 
:;CHRS RK 
4395 LET A=USR 3SE550: FOR R=1i Te 
23@: NEXT A 
449@ PRINT ~_=INK 2;TRE 211; PAPER 


7 VEEP > tae 22 


4416 
THEN 
4428 


7; CHR 


4425 
i158: 


Pet K=PEER BSeSS6. ZF K=e855 

GG TG 44:2 

POKE S2S27,K: PRINT PAPER F 
K 

LET A=USR S255e@- FOR A=1i TO 
NEXT # 
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#430 PRINT °° ENK 2 
?; “RIGHT™; TRE 21; 
444@ LET K=PEEK 2355 


7 ?TRE 11; PAPER 


$4595 LET A=USR GSEesse FOR R=i Te 
45@: NEXT FR 

4462 SSINT ~ ENK 2S: TRE 22: FPREPER 
F; “REGRT“ S THE Si 

4470 LET =PEEK 3235556: EF R=255 
FHEN Gla ToS 4473 

$450 PORE SSse3.k PRINT FRRPER F¥ 
CHReE KK 

4435Q@ LET A=USH BSSsSta GG Ta «eae 
43590 INK INK: RESTORE 4683: FOR 
A=E FO 2: RERE AS SREiNT AY AR.t: 
Fg: NEXT A 

4510 FOR A=S FTO 6 REARS RE: PRIM 

T AT &8,£:;88:- HESNT 4 

4526 FoR =F TQ 22: READ &#¢: PRE 
MT AT &,38;8¢: NEXT & 

4538 PRINT ZNK FI RF &S,F; “Hriiien 
BUY TAT AB,4s NES iS AT 22.4: °FPei 
Lease = z.** 

454@ LET INK=INKs2: FTF ENR=8 THE 
Al LEFF 2NK=2 

45355 INK S&S: RETURN 

4269@ baTAa ™ : 

#619 OATR * . 

46526 e8TAR ~~ * Y? 

$633 DARTR ° = =e ez = —==z «= 

= 

$640 DATA “SZ 8 88 z # Fs. 8: 
eee? DATA “ F=_F FF & =z & "#2 
4668 pAaTAa ° = 5 = = eee oes = 2 

mew 

4678 DATA 

i658 


4658 BATH 
4538 BATS 
478390 BATA 
427108 CATR ze 


SSGG REF OPT = oS 


= 
FOR F=-iS F 23: FRINT AT FR. 


Sie 

S.S8: NEAT & 

SSO 2NK_S: PRINT AF 25,12; “PRES 
= see oY iv,i@; BRIGHT 1; °S"; BRIS 
HT 6; TOG START: AT 33,7; BRIGK 
T 2" R™ BRIGHT 8; * FO CHANGE HK 
eYs* 
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SaseQ RETURN 

SiG IHK &.: PRINT RF 35,3; “GAME 
CONTRGUS" > AT eres LEFT; AT i? 
sees" = UPN SAE 2935 RIGHT: AT 
i3,212:*- DOWN 

S210 PRINT BRIGHT Lif 2Ff .4;CHRRE 
PEER SSSST: AT iF .a8,;CRRS PEER = 

BOLL; AT 19,4:;50HR$ PEEK Sess5. AF 
19,.28;CHRS PEER Sertis 

S212@ PRINT ST 213,33; BRIGHT i,th 
R$ PEEK SSsas; GRIGHT G:* - RBESR 
Sis@ INK @: RETURN 

5500 SORDER & PAPER = Sis iN 
KR F: PRINT AT @,6; INK S& BRIGHT 
a; “TODAY’S BSEST SCORES 

SSie FOR R=i TO if: PRIENT | MAD o 
ND A<CS+iB; A; “sRSCAIS 22M GH OA : 
NEXT & 

SSi5 PRINT 4S. XINK_S;~ re 
RESS “; BRIGHT i;“S"; BSRIGHY @;”" 
OR “|; GRIGHT &:*K” 


SS2@ RETURN 

SGSaG REM JINGLE 

SQ1@ RESTGRE S4e¢ 

S20 READ A.B: IF #=99 THEN RET 


RN 

SG25 IF A=86 THEN PRUSE B35: Go 
TO 8@=e 

SGS@ BEEP AYS.B-St_EV: GO TG 502 
a 

S490 DATA .3.4,..3.4,-6,.18,.3.4.. 
3,4..66,10,.35,4,.3,4,+9;,16-2 
8418 DATA 6E,2S 

S43Q OATA .4,26,.4.223,.4,.5..4,.9, 
-3,4.5 

5439 DATA 85-20.-5.0..6.4 


S520 GATA SS. 
S@aG REN FORM “ups ‘Ss 

30 19 RESTGRE S885: FOR A=USR “AR” 
TO USR "B"4¢F: READ B: PORE A.B: 
NEXT 

SOS@Q CATA 16,56,.126,124,16-,428,65, 
S,34.,.126,2326,255.255.126.1265.2+ 

SG@SG L&T S#=" 


SSO CIN HiiGs: Bin ne {io . 283 
SeFE FOR R=2 TO 28: LEFF HSthir=a"N 
EIt PELLINACCET ....*: NENT A 
9@S@ FOR A=2 FO 28: READ B: LET 


HAI =6: NEXT A 
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3SO390@ PATA 35G,396,.459,472,518,.55 


&.596 .636, F2&. ies 


Sise LET Deo. een ewe 8 «ce eccees 


32230 So TO 4ge6 


S506 FGR 2=52550 TO Ses6e6@: PRINT 


=; “; PEEK =: NENT = 

3S51@a@ Stor 

S6@Q6 SSVE “HOLLERHAZO" LIE & 
SRUE “ROLLEROCOCGE“COSE Saeesg. 

3 

3616 SToP 

279@ CLEAR 32399: LGRE *““ecabEe -: 

SO Te seaac 


4/ Type RUN 9000. When the title page 
appears, press "S" to play. If the program 
crashes, you've made a mistake somewhere. 
If the program runs properly, try 
redefining the keys. Test everything. 


5/ When you're happy with the program, 
Save your final copy, using RUN S600. Then 
check it by using VERIFY "ROLLERMAZE" and 
then VERIFY "ROLLERCODE"CODE 32000,600 


6/ Play the game, either loading it, or by 
typing RUN 9000 


The program, as is pretty obvious, is 
written in BASIC and machine code. The 
machine code reads the keyboard, rolls the 
maze and handles sound and other’ special 
effects. Various POKEs in the program 
control these routines, Line 9500 can be 
used for checking machine code by changing 
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the addresses. There is enough space in 
the machine code memory map for your’ own 
special effects routines, if you want’ to 
add them. 


If you own a 48K machine and you want to 
move the machine code higher up in memory, 
you must remember to: 


i/ Change the USR addresses in the main 
programs 


ii/ Change individual bytes within the 
machine code, as some routines call 
others. For those who know about such 
things, the two address bytes following 
CALL (205 decimal) will have to be changed 


iii/ Make the necessary adjustments to the 
machine code Loader program 
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Three-D Maze 


This great program wes written by Scott 
Vincent. You need a 48K computer to run 
it: 


A ten by ten maze, with a_ single 
entrance/exit is stored in the computer's 
memory. The object of the game is to 
wander through the maze, find the treasure 
and then get back to where you started. 


If you Lose your sense of direction, you 
can press the "R" key for a repeat. This 
takes you through the maze from the 
beginning, showing you quickly all of your 
previous moves. When the repeat has 
finished, you continue on with your trek. 


Use the following keys to move around the 
maze: 


— to move Left 

—- to move right 
to go forwards 
- to turn around 


ron-=- 
| 


Note that you need to press L twice in 
order to turn through 180 degrees; you 
cannot press 1 or 2 twice. 


If you manage to get out of the maze with 
the trasure, you'LlL be told how many moves 
you took. The maze is not generated at 
random, so it is the same from game to 
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game. However, the treasure is placed in a 
random location each time you run the 
program. 


ih 


BORDER 5S: PAPER &: INK a: © 


is 
a OMIz ze. : DIM N{93: BIN N 
ro): poh NgtSe 4,9); DIM NZST2S2R,1 
=" oe FoR x=e@ TO Sa: RERD y: POKE 
ISR “a+ : NEXT x 
Use FAR xii Ta 9: READ Mix): NE 
TAG FOR x=i1 TO @: READ Nix): NE 
AT & FOR x=2 TO 20@: READ MSIx): 
N= pHa 
"ea. FOR xed TO 2@@: READ NS(x): 
NEXT aeae 
>; "ARI": LET PR= LE 
+ veae ET o$=" 033 LeT x=2+INT iRN 
heF) P 
"50 LET La=2@1is(x=i OR x=¢_OF & 
se OR X=7) +818 (xX =2) +127# (N=31 416 
S2f{x=82 
“3a 7 Lb=2@1et(x=4 OR x=6) +100 
ctneab peas (x=) S1BD# (NX HS) +1728 Cx 
=51 +196 (x =F) ae 
1]Q LET be aS4¢s {x =44 +5064 1x =23 +12 
é¥ (X25) $131 (x =H=d) 2174 1X =51 +191 
ix=6) +199 txN=?2 
tig CLS : FOR x=a TR 8; IF NEIL 
wis "ae THEN GO SUB Nixk 
42e@ NEXT 
130 FOR x= Sa TO 9: IF MeiL,;NI="4 
”“ THEN Go SUB Ntx) 
14@ NEXT = 
iS@ IF L=S OR L=ka OR L=tb OR L 
=_Le THEN GO Sus 228: IF L=2 AND 
Jr=1 THEN GO TO 7e 
16@ LET B= INKEYS: IF Ag="" THE 
Mm GC terres am Fal uni ree 5 
32 my i } SJ ztiAg=" 
sé — = tA tt Br) 
rs ="c"“ THEN GO Toa aaa 
19@ IF P=e THEN GO Fa isa 
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21@ LET PS=P37HS: CGO TO 118 
22@ IF L=2 AND Tr=@ THEN CLS : 
PRINT AT 18,42; FLASH 4; “ENTRANC 


23@ IF t=2 THEN CLS : PRINT RT 
S,¢4; “Wett done, that took you"; FR 
T 1@,13;LEN PS;" mowes.“; AT 14,6 
; "press eny key Far anather game 
-“*: PAUSE 2e¢: RETURN 

e4Q@ IF te=ta THEN PLOT 116,982: BD 
RAW OVER 4; chee @: PLOT 116, 76: DR 
Al’ QUER 1; 22, @: RETURN 


25 
DRAM OQVER 1; 


7,54¢,8: PLAT Tae, Ba: “bp 

RAW OVER 3;54,8: RETURN 

26a I L=Lc THEN PLOT 72,143: 
RAW OVER 12; 338@,8: PLOT 72,32: DR 
Sit OVER 31;138,a 

27@Q IF Tr=i HEN PRINT AT G,14; 
“You already’; AT 14,1412; “have the 
“SAT 433,423 “tr feasure."- RETURN 
2S LET Tra: PRINT AT 9,11; "¥ea 
vu bave"“;JRAT 1B,it; “Found the"; AT 
82,433; “treasure.” 

238 RETURN 

S@@ LET y=1 

32i@ FOR n=1 TO LEN &S$ STEP S&S 
320 IF n=3 THEN GO Fra 3298 

BBA IF Psivr="A" TREN PRINT RA> 
AT @,6; "RR" 

o4e IF Psiyl="8" THEN PRINT #81; 
RAT @,15; “B" 

S5@ IF Pseiyd="2" THEN PRINT #841; 
AT .2,28).°f" 

Sak =o Psiyi="1" THEN PRINT #84; 
BRT Eee . "bs 


Sane 
2@ FOR er TO 9: IF MSiL,-xXxI="1 


“ THEN GO Sue Nix. 
43@ NEXT x 
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446 IF t=2 OR_LslLs AR L=Lb OR L 
=Lc THEN GO SUB 22a 

45@ NEXT n: GO TO jibe 

Saan eS. 4@,175: DARW Be,-3e: P 
LOT 49,@: PRAL S2,32: RETURN 
Sees PLAT 24,175: BRAW 8,-1i75: Bb 
RAW @, B2- DRA 45,8- DRAW @,1414 
BRAW -4¢B,B-: RETLRN 


S@1S2PLOT 185.143: BRAUW (32,32: P 
La AW 3s 


S@i5 PLOT 251,175: SRA @, -175: 
BRA Qo2; DRAL 45.0: DRAW @, 12 


: a 
,S@: ORRW Te ee PRAW @,55: DRAW 


,a7: PP 
LOY 482,33: DRAW -27.27: RETURN 
5S@35S PLOT 282.33: CRAW -11,11: DB 
RAW @,B7: ORAW 24,34: PLOT 178.6 
@: DRAW -15.98: DRAW &.S5: BRAY 1 
Ss . 


,@: ETURN 
S648 PLOT 193,144: DRAW 19,-19: 
PLOT 101,61: BRAW 19,19: RETURN 


@: DRAW @.-33: DRAW -6,.@: BRAU 
Sese PLOT isa,.74; DRAW —-a9,-29 
“Brey EL eit Basa -19,19: RETUR 
S@SS PLOT 154,414: pray -a. _ 

R it @,.-37: ORAW 8) -e: yO) ae 


:, _GRPW -6,®8: DRAW The -4: GCRAW 4 


a a3: DR : 
Wi OQVER 1;0,-318: DRA a_i.’ pnp 
J jrtie ‘ae “DRAW OVER 41:9. $a: RES 
J 
SQ6S PLOT 103, 21s: ReRAY 5S4.@: DR 


Wee @: baad OUER fi ate Bereen 
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ere OVER 1: PLOT 11%, 
2G: PLOT 136,965: DRAW 


DRAW OVER’ 1:0,-22: DREN 
“25,@: DRAW QUER 1;@, 


@_DATA 16, 
24,6 
bata’ a a 
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HQOemn cy gsnitony- dio 


11°, "@ageBe010", "O22", 
Ben "41a", “Beo1eedaa™ , “ig 
rrgidttngagteneie 2284 

ae 7 ta] _ a7 1 i se 7 
dasa DATA “1daagaeds™ , @41", 
@ii" ,"@@@11@9@11" , "G12" 

’ 


9:3 8% 
be: 
BOs : 


Qe eR 
file + 2 


ba fps 
7g 
7 
a 
4 
D 
2] 
few 
fe 
i) 
pa 
i) 
be 
fo 
rey 


ro) 
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ge 
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Qh 


zh 


mA 
1Gi", “GSaGiG1G1", 
an sGaa “Jagaaseia. “le 
Big 
1 


ORE 
Bodh ss 
=~ OD os 


- 
” 


1a@e@ee", "eit" “aeag 
x Se “QOBEeG111", “lit 
a6 Weagiai™ .“oo@100121" , 
@OBeG1 GG", '@Gi", “eel* 4 
“,"@10801i1i", “Ooi, “GAG@Q18G14 
BVGi" 

DATA "Bibi 1Be86", jdeoolon 


2g Ea a OS 

Hh Ge 
. BRS 
PERE DeES 
Qre 


Q: 


Hes soi 
BRE BSw. By Gh 
be 79 


“ageeai",*1s8ee@1a", “a@oi, “aoe 
11” 


fax fo 
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Fe DATA “1EOG11", "S1aFBeee1i".” 
1°,"494","104","001", “S$ 3a3"*, “as 
y "@ilBiliegi". "“@iia","161 ra ,"aea*, 2% 
."eaeeapeiia™, “@11", “SoBn110a0R 
“PO@BaLa", “lisdseveeo", “SPBQORBH112 
’ "iaaaaa”, “GABSAGAGi1" , "BOOORR7 
ph Jai eaBoene™, "@@@11ea111", “@e6 


Bret! 


- 
. 


? 

Qaaa, "2a", “taa™, “iaoagaiaa 
ai" “Baa, “aaaaioaai«, “Baa 

A "aieeea*, “Operas, “Sa oaaed 
44a 


a 
S306. DATR “@@ei101008"."agea@aaiia 
" ,"@8080801590" ,"8@822010611" ,"1aE8ee 
aaaa"."@1ae11", “Q0Q1G00G0","e@1ee 
geen” .“Aeaeaeioai" . “eeaereaea", ™ 
i@i","aeeiesi” “S2egoee1e" ‘Rake 3 
ee oe “@oi", “O44, eet Oi, ee igi" ,"o 
LVMeeseo" .“Soane2" , *Baee1aaee®. s 
Sil". "aaa" .“gagaii" 
Siee CATA “aasgoReo4ean", “aaeaeaes 
BVBIsei". “easeeaseecess". “e25eaeane 
2e26", “@aRoo7eBeeRS", “@eEe0R4Re265 
#3 “890010009811". * @@@2060ReR95 
“Ae@assooae5s", “@90012>000013", 
“ageeeaaoaaer’ | “@aeae0e14015" 
6ile@ CATA "909011900010" , "eisae¢e 
BirBic™ “gees isegeeis" . -ei5@eaaq 
@G14", “S260e0000021", “aeoo0e0e0G 
19", "880017015918", "o238a900R022 
", "@16018880017",. "dooaanez1020" 5 
“SSCSVSLOSOl4" . “@EGGGG02S023" 
122 DATA _ “@280e00900027","aRa2e0c 
@OAGA4", "PBAOGS9E26025".“deaegsaan 
a2@31", “Aeeosseeaasa™ , “daaa0ean2e 
ae “Seaeeeee7ezs", “d350000RaR00R4 
z ,"@29031800838". "@s3000000032" - 
“Saaeseaaaesr, “S390G0e38e40" 
651328 CATA “290800034035", “@42000 
243841". "QVQAa@SSee@ee5S" , ‘asea37ee 
Base", "848939800035", “@e0045a044G 
4 ,"@sdeea0ae0ess, “@71eAeBr2zea7o 
vs ,“eaeesd7aReada”, "@o0043041042"., 
“4 9988000050". “@4aea500R045" 


Bt Meee 
Bey BE eae ey he FG 
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Silda OHTA "“GBSASSeReoooosSi" , “AABAscse 
@@0047". “AAABHOSSOOVAS" , "OSOBSSQ4 
8O33" ‘G1 1888010009" , "Oo0Ca00ST2 
56" ‘Sa16425090043". “QOaqgaggassesa 
* , “@SSGAGaeeass" , "G@Seoeaaecasr”. 
“ABSBS1OS4Ob2", "OS10G09030029" 
6BisS@ CATA "“S9A@GASE7OEE" . BE OLG TRIG) ata) 
BBoeasa" | "O@SBOBBB9GES" , "GQoonRes 
2e65" “@62063061664", “@64962063S 
Si". “ABBAAAAaBAGa", “Seeaaaaaaa67 
'ABIBEdA62A63", “h46ReRR45a44", 
“Saaarsaoaard” “ie1g9Gg06102”" 
5166 DATA “SOOOP7EQTSO?T . "990872 
QB7AAzTA", “321808601221268", “OQ7Ba7I08 
Sosa". “SaaeraAggaars’. “S9eaqS7a85o 
Be", “asi DeDRBeese". “S750? FBaSearTsS 
his , ‘assnesaaeaas", “G@aaasearaa7a” - 
“AQaaaadsedsi". "“Geeassa00037" 
Si7@ SATA “AQSGAQQARKSTABE" , “ATAARA 
BBea7Ta”. “SGRBBSEeOQR@QG5S", “dedaae0s 
Bees" "as SSSSSQaecear7". “Saaacane06 
Si". “BOBS IeeS2eg0" ."Se5e000094995 
PBeeroiseseece", “eececeeoeoesce”. 
“daaoaseeelbe™ , "@Ssogs5ep00o4" 
518e@ DATR “S@G@SSBE5054", “OGBERBG8 
S@QBIo" . “AGASSI? OGGGSS5". “gaoag4a9g 
Sess". ‘SBSiSsissisad™ ." 7BS7TI1S8602 
7a", “446144147145” ‘BOBOSSG1 82191 
."@OG197 9902106", “2 G4000103105", 
“O@QRiwsaeaasiss.- ‘SOSiab005107" 
e6ive eke ‘LiG@OeUSUaeGliLl","*Lidiis 
QOG0169","1530900nae 
£2206 5. “SO51500802 
= ee “OOGITISG@ALTES 
* 2913114112115", 
"@O77EG0076O075" 


4 
1 eo 
Si “141600012 
7“ @&BS@9@8eGoi 
‘418116090117" 
ee .DATA “MSSCCMO@LS6127", 'Saeled 
23", “TRGBI2SiBeBizezsS", “Se0aaeee 
“AaB is Raaaied”."isaaizeaaai 
“AMAIPEISO@I21" , "@SMABATIS1i3¢ 
I2FeEoeeeea126", "151@9@@888132", 
SRABBRAGAISS", "128886129130 
a DATA "ABAQOA1S2131","aae@i12sS 
@i2Sa", “A@SAGaGISEiSF", “Isananee 
3 


ha tae 


They enn 
el ed 


a"; “i sd@@Oaeeiss”™, “I S7OR00R01 
; , *SAA1Z1AGG14B" , “GVH BEG13SR139 
“SaglaSoooiaa", "698149000141", 
243471345146", “@Rpeirseepi7a" 


Suge: 
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S2S2ea CATA “1851e8¢e0e81eS",’"e0eide 
@2@R143", “MPOI49G0E148", "14514614 
4147", "BBBLSLIBIOISH"™. “BVOis4EBHH1L 
429","%1421253213114", "2151135114112 
“,“@@R@154¢@QG155". "ASeee0156i5?7", 
“AAedAsiS2iss", "B@eeeoe1s9isa” 
E230 CATA “BOSISSBIVSISA"™ . “iAS7aGBS 
BeBISS", “I5beo@AeeVeB1S1", “iss2881c 
4162" “i 56900008159", “$9909@1611 
6a", "aaviseeeeisi", “@a090e165165 
aoe ‘desaeaoeei67","162i163a00164", 
“LEGRESBE00165" , "GAG000169170" 
S240 DATA “@eaair FST i'. “Seeeve 
167166" ,"178608G0G@R1E5"., “@9@11714 
FILGB", “Oeaiz PSQOBLP7E™ "1471451461 
44", "47800017 Siv?'. “OSB1P4AGe@017S 
") "@aB1 76000175", "S2G182 88153", 
“S@R15180801E2", whe 7irseeeirs™ 
6250 OSTA “seaisa1623583" ‘Saa2a5 
@BG155", "090179177178" ,"1861870R 


@188", “@9a18se0a182", “1999900001 
S39", "O80isde6aea@195", “@aa1esaaoisd 
*, “lS7ABB156166", “AMAMWBI91195" , 
= A2VIVOSSGias" , “@aoaeeissisa™ 
S260 DATA “1IsSeeeoeaaaisi",“ics68e0a 
SBBi97", “SBDISHSABSIST" “Sea ic996 
@198","e@ee1950e@194", “S8e@bee81971 
26", “@8BSO8sGS200" , “98195900195 


Three-D Maze II 


Once you've mastered Scott Vincent's 
program, you can progress on to this one. 
In this 3-D maze program, written by 
Graham Charlton, you once again see the 
maze in three dimensions. However, unlike 
Scott's program, this one generates a new 
maze each time you run the game. 


The maze is built on a 22 X 32 grid, and 
the computer takes about a minute to 
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create a full maze. Here are some shots 
of it in action: 


H : 
i ; - 
| Ts 7 | 
“ 
i = | 
i / | 
i 
pA] | 
— | 
a: 
i ~~ i 
i 7 
roa he 
“se SS 
; a A | 
~ =a 
* A 
3 <ee 
LK Fa a 
i a ns eh 
i ail | 
i | 
| LL cn 
Pde 4} 
a oh 
- *aa, 


220 


Your object is to move from the top Left 
hand corner of the screen tao the bottom 
right hand one. You press the "R" to turn 
right, "L" to go left, and "F" to go 
forward. Pressing "H" (for 'help') will 
show you the maze from above, and will 
show you where you are on it. You’ start 
facing south, 
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PRINT ctw ,: 
HeEXT & ee 
PRINT FLASH 3; AT x-e- Er 
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TREN PLOT dear me Ge “SSR Bn eat 
PLOT 128-k,88-(: DRA Bas aS 
TA B2eea 
2A LET g=J+1 
SA TF cHUIN+HJ#P-2,- 3945 4R23R) ="R™ 

HEN PLOT 1PS-h,BBsl: ORAM KAovt, - 
wd: BROW @.,-l#Bve: BDRAAM -kRwt,-i 
4: GQ TG 3Bisdea 
J4Q PLOT 128-k ,88+t(4#3-4: DORA «& 
.@: BRAW @,-lL#3va: DRA pind eB 
SO IF cHt(x+GPt+Q.¥+5#Q-—Pi ="R 
EN PLOT 128+k,88+(: GRAY Si Paks 
4d; BRAU @,-le32 CRAWL keh, =i 

ra> 60 TO. 31706 

535M PLOT 21284h,-.88s:t 2074) ORR - 

74,8: DRAW B,-l#3r2 CAA %A/7 4, 

Sire LET kK=k#ar4 

Sisa LET l=ts#ard 

31ic@ GQ Te 331184 

S2ea@Q IF x¢+j*psel AND ¢+.#93=34 TH 

EN PLOT ia26-k.,88+1: DORA 2th, 2? 

Lt: PLOT 228-k,88-l: DRAW 24h, ,f%i 

S21B@ FTF xeb2 ANS y=ns THEM STar 

BEEG LET z$=INKEYS 

S230 IF z$="" THEN GQ FO Aeee 

S2¢@ IF 2z$="F" AND cHinee. 374i = 

* THEN LET x=x+p:; LET Y= 3234 

3eS5@Q IF z2$="r" THEN LET r=r-i 

S2ee0 IF z$="t" FHEN LEF rar3a 

327@ IF r=S THEN Let be: 

SE2S80Q IF r=@ THEN LET 

Se29@ IF z$="h" THEN Bo “Fa PIR 

S2aaq GO TO 25eaea 
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TWO PLAYER 
GAMES 
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Squares 


This program, fron Neil Pellinacci, 
includes versions for either one or two 
players. In both versions, the game is 
played on a ten by ten board. 


You have to place counters on the board, 
following the rule that you cannot place a 
placing a piece on, or adjacent to, one of 
the computer's pieces. 


The one-player game is called ‘Area’ and 
you play against the computer. The first 
pleyer who cannot Legally place a piece on 
the board is the loser. In this game, your 
move will be rejected if it involves 
placing a piece on or adjacent to one of 
the computer's moves. 


The computer moves randomly unless it has 
problems finding a move, in which case it 
will search methodically. If it still 
cannot move, it will admit defeat. 


The two-player game is called 'Lines' and 
the winner is the first person to get five 
squares of their color in a row, 
horizontally or vertically. A move is 
rejected if the square is already filled. 
However, if you move adjacent to ([above, 
below, or to the side of) one of your 
opponent's squares, the piece becomes one 
of the opponent's. There are a number of 
winning techniques which can be used [as 
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there are in the one-player game). One 
slight mistake can cost you the game. 


It is essential that CAPS LOCK is switched 
ON during this game. When the program 
starts, you will see the title page, and 
four options A to D. If you cannot select 
an option, check CAPS LOCK before you 
check your program. 


The first two options, one and two player 
games, are fairly obvious, The third 
option, to change colors, allows you to 
redefine both players' colors, by pressing 
the appropriate key, 1 to 7, when the 
prompt appears. The two colors cannot be 
the same. 


Asking for information will give you a 
brief rundown on the aims of the game. 


When you play a game, you'Ll be presented 
with: 


PLAYER ONE NAME ['ENTER' TO SKIP) 


Type your name, or if the player's name is 
the same as before, simply press ENTER. 
The same goes for player two, when 
necessary. 


The displey shows the board when the game 
is in progress, together with a_ score 
display, which shows which player is which 
color and how many squares of that color 
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there are on the board, A prompt appears 
at the bottom right of the screen, 
indicating whose move it is. Below this 
is the Last move entered, displayed in 
white. 


Enter your move as a number and a Letter, 
eg 7A, 1D in that order. Entering AA will 
terminate the game, and return you to the 
options page. 


The program is written entirely in BASIC 
and is made up from seversl modules which 
are Linked together by the main routine, 
Lines 540 to 740. 


SB2O@ REN LINES 
5iQ@ REHM x+x++F 


S3@ GO SUB GBae: Sc sUR age 
S32 Go SUR Sees! Sosnes = Sase 
R @: CLs : ME F 
QQ GD sue SS0a@- PASSR a: INK F 
FBG GA SUS Saee! Go Suse S2ee- & 
EM PLAYER GNE 
7aS IF UF SR AF THEN Go To =Seac 
7a? GO Sue saae 
7id IF NP=i THEN GO SUB sean 
7Be If NE=2 THEN Ga SUS Jere 
725 If WF GR SF THEN Go TS sees 
748 GU TO Fee 
ag@eae Star 
S@GQ REM SLAYER oNE 
BIG BESS IF,-48: BRINT INX SiRF 
15,22; “PLAYER ONE; AT ar, 22: Ps 
2820 PRINT AT 18,22; INK &;"To # 
3h} a FEN 
Sara &o SUR 2SRBG-. PRINT AT 19,22 
et 3 
S@34 IF AF THEN LET AF=1i: RETURN 
Rese If BRIX.Y)}+>@ THEN Go Teo 283 
2 
2034 IF NP=1 THEN sc To sane 
2435 LET chee Sh est: Lf F 5] 
—=? #232 
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SEAR LS P2S5=Pis542: LEF Bix.s'yi == 
PRINT AY b eo; PUER 2: FREER 
is." SF Licst Cy. = 7 
SaS@ FF Bix. Ysitise OF Sik -Y-s3 =e 
OR Bixsia.,Yi=s2e GF Bisx-a,73 =e THE 
hf LET S(tx,.¥}=2 PRIN AT it,ce; _ 
OVER 231; PRFER Cea: ” "SAT Liat. te 
ar *.° ¢ ST FES=PESe1: LEY Sass=Fa 

ef 

2SSS2 BEEP .f2,;12 

PASS FF NPs=t THEN LY Wr-e RST 

RN 

SEBS52 LET WF=8 SG SUS FSS 

SATS RLYTURN = 

DABaa IF BIX,¥t21=2 OR Bix. Y-A3 == 
GR Bixaia,yiss OF Sik-i,¥i=e2 FHE 

nm GO Ta Baan 

BAA GO TA Sess 

S529 REN MOVE 

S858 FHPUT Lisi ss IF LEN ARIO= 
THEN Ga TO 2ewee 

2S5@S TF AsS="AR THEN LSP SFr=+i- i 

ETURN 

SIS T= COPE Sei3i<iB of CESS A= 
f2:3>57 THEN Ga TO cave 

2EEBQ FF COPE Asif} <6b5 BA CRDSE Re 
i23>74 THEN GO Ta Soe 

SBEB@ LET MSCS AS -s5 

BEA LET ¥Y=Caopt RsiP! -ss 

SSSS RETURN 

BBAeP RON SPECTRUN 

SBiAQ PRINT AY 26,22; j(%INK 5; “Fie 
ER TWO’; AT 27,22: 88;AF 238,22; °FTS 
HOVE: * 

Saas FOR A= FOG 35 

Saba LST K=THYT iSND4i33 +2 £Ey *¥ 
=ZHT (tRANDsI2s +2 

Bae. IF Bik, ¥} 428 THEN GQ Fa age 
Sada FF Bik¥sa-yis=k BR Bix-3.¥Yi =i 
OR Bix Y+iis=i OA Bix, S-it == THE 
N NEXT A: GO SUB 2588: IF We THE 
NM RETURN - 
3a45 PET LL=ify—-23 2242: LET Seg x 


z 
—=2B} #202: PRINT AY £2.00; Oven 4: 
PAPER te;~ “JAF L£i2+2,ce; of 
BaS@ LET BtIX,Y}=2: LEFT Pes=Pes2i 
: RETURN 
B35@@ REM SEARCH 
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254@ FOR X=2 TO 44: FOR yv=2 To 4 
a: TF 8:X%,¥}43:2 FHEM GO Fa s5¢a 
BSaa@ <= Hixea.Yisi GR Sik-2 5: =i 
GR Ria,Ystis=t OAR BRiaz;zyY-As= THE 
N GO To’ 34a 
R53G@ RETURN 
B54Q@ NEXT Y: NEXT *: LET MF=3: 8 
ETURN 
3989 RETURN 
4@a@Q REN PLAYER THe 
4018 BEEP .3,-18: PRINT INK 8; AT 
16,22; “PLAYER zy0" PRY Avy ,22; 23 
4830 PAINT AT a8 Se: rc 3:°FO°H 
Sve. ? : 
geae £6 sus SoeR8: SRINT RY aB-2c 
aT 
4@31 If AF THEN LET RAF=5: RETURN 
4832 GF B(x, ¥!is28 THEN eo To 485 
LS 
4035 LET LL<=i¥-Sisesa: LEF ce=itx 
—2}) #233 
404@ CST PSS=sFe5G4-. LET Six-yi=2 
- BRIN AT LL,CE; GES 1: FPASER 
wees SS: £33 2th: Sse 
2@50@ If 'Six, 33) =3° OR Six, y-ai=i 
OR Bivei,yisi OF six-i,yi=a THE 
NM LET S¢Kiv}=s3- BRENT AT iit ce; 
MUER 41; PAPER £4a;° “;AT £Li34a,cc 
f* 2 £7 S35-Pas34: Ler SSesr= 
S32 
2e@S5S SE=P .f,26 
425@ CET vF=8: Go sum raee 
42370 RETURN 
S@@ae REN GAHE OVER 
S@i@ SBAIGHT i. PAPER 1. Far R=22 
TO 213: PRINT AT A,22;* 
“> NEXT A 
Be SRINT AT 13,23; "GRAMS QuER” 


3@ iF AF THEM SAINT AT 15,24; ¢ 
OPPEOS" AT 36,23; “BY FLAY ER” | ; RA 


sada r= ir THEN PRINT AY 25,20;" 
PLAYER “;UFL AY 35,25; “wins 
S25@ PRINT AT 22,23; INF 8; “PRES 


TAPE RIL 
“A191 


iG 


VY, 


S$ ANY, AT 23,26; “KEY” 

S@ae@ BAIGHYT @: FAFER 8. GO Sus 5 
@@@a: FOR K=-28@ TO 4@ STEP 2: BEE 
& »-@S >: BESePp -B2 ,3R-F- NEST x 
SQ?78 PRUSE 8B: £0 To 545 

S228 REN PRIN BCOoReS 
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GB2ie@ PRINT RY 3,22; INK FF; “FLAYE | Sa72a 
R ONE* | AT 3,22; P8;87T ¢,23; IN F | i2;* 

7 PRPER Ci; “3°; PRPER @; INK 3; | Shaa 

“; Pigs; oR | GAN 

SGLQ PRINT AY £,22; IMS Fp “SLRYE PONE 
R_TWO° FAT 38,822; 8S;, AT 23.23; INK | = IN 

7; PRPER Ce; “(> PREFER &; INK 5 Saaa 

y 7? “7 Pes; ™ i | oRIZ 
GASB RETURN S7Faa 

PRBR RETURN ¥ KE pl 

PSS2@ AEM CHECK FOR Win S?ria gras a: *RORDER S$: FPRPFER 4: 
7S1i@ FOR X=2 FO 13: FOR y=2 FO 2 cis : INK 2 rte 

s B?PiS PRINT TRS F; “SRusRSsS can 
PSE IF Bix, yYi+198 FHEMN it EY R=£ tx tenved“:;FAR F;°----------------- 
2¥l: G8 Sus Fsan- ZF #=2 THEN 3 a 
ETURN S728 PRINT IF yYOti PLACE _ A 35 
7S3@ MOMT Y: WEMY xX: RETiusN WARE ON THE ~~" sOARD RDUIACENT_T 
SEOS. LET XiSK: LET Yaer¥ G ONE OF YOURS? -"DOPRONENT “3S, IF _ 
7FSBI@ FOR F=3 FO 4: LEY AL=HAti: WILL THMEDIATELY: “RECANS GONE oc 
iF Bix? Wz <3 THEN BO FO Faa2 FF HES." eee meee 
FRlQ NEXT Z: LET HR=8: RETURN S728 PRINT Pe SS oe ss SHESS 5 
7BBA LET *3=K: LET Yi=s NY KEY TQ SELECT GANE* 

FOS Fee Za Fa $=: LEFF yYisvriei: S742 PRUSE &B: Gh FOU sSsee 

IF BiXi,¥1i}<3R THEN Sa TO Fase SRSA REM UDS-s 
7B5@ HET =: iF WF =5: FSTuRN | Baie Fos 8=2 Fo S: Fae 
FESS RETURN R.d- PEE Gh “B*2+F-5, 
PERBR RETR | BB2e : SR “A'I7,28 
SSSA RE VURARTRSLES mG o'B 
SBie SIN P*iagsi: 8M BPiAw: LET 3a3e TR &: POM 

Ci=sd: LET ca=6 R,i2 = SA “HCLF- 
BB20a DIN Biise,22} T FA 
BEB FOKE PBaSol. Re anda SSS: SOME US 
2S22 ASTUAN | = “Dp 
S698 Aon INFt 3ease 
2518 SCRE :. PHPOH 2: ENE SS. C GS Ss: 
LS POK 
S628 PRINT AT 32,423; “SRER": AT 2,1 Sasa 
a; **—---—-* S2a¢ 
BSES8 PRINT ~-TRER 3; °R ANE-FLAYER SDR : 

GAN BT ea You MUST BEST THE tay S58 
BUTE. YR “SLT Sates ON FT AY : 
RE BOSRE San “THAT NONE RAL FT A+ 
RADUACENT FO THOSE ef Fre CoH NEXT 
PUTER. ° 3236 PHRPER : INK 2: FOR #=8 TO 
SOa¢S FRENT - PHE CONPLSTER iti 3: PRINT AT @,A#833;8;" “IRF S43. 
istry. LTREUISE "ane uri TELL ¥ Ae24e1:8: "> EXT A 
Git WHO HAS oN.” S24@ FGR A=i TO 18: LEY Aai=Aee 
SOS@ FRINT ~~ _ INK F;~. FRESS Fh SS5Q@ PRINT AT Ai, @: CHARS inzo42 A 
Y KEY Fa CONTINUE F > T $2,232; CHR= mssei par HAs2 Bz 
SS58 PHUSE BSB: BOARS &: SRSA =: "2 SY £8423,2535 " “1 SENT SB 

CLS Ink = 


232 233 


S282 SPRINT AT B.2; Sar ae 
AT 4,24:" “;AT Bi23; 
S3ae@ RETURN : 
S585 REN OfTrans y 
SSeas CST AS=8:. LET UF=a: LEFT PIs 
=Q: LET Passe: DIN 822,35) _ 
S5i@ SORDER =. PAPER 2. ‘INK F: c 
cs 
SS2@ PAINT AT 1,9; “¢ssa0unRmeses= 
“TAT SG .SI VWRITTEN SY Seat FELiINn 
mécr “isaa- in 
SSS3Q@ PRINT -~-TAS 22;“oFTZONS” 
354@ PRINT --TAR 8; tR] ONE FLAY 
ER GAME” 
SSS@Q PAINT “TAB &; fh] Tua PLAYE 
Sole BRINT “TRB &;"fC] CHANGE co 
Rs‘ = 
SSSC PRINT “TAR &;“{D} INFORNATI 
ON: HAAS ne ar 
ssf PRINT °-* CHARSE YOUR OF 
eeSn Nea BY “-" PRESSING THE AP 
SRAPR I: ey" att. 
Seoae LR THESH Lt HE=t 


GO Tr Sree +4 WN 
= soe 3 INK Sy 2-3" FHON ii ive == 
a8ee 


a8 
S505 FF INKEYS="D" FHEN 
S690@ SF INKEYSi2°0° THEN EC Fe 5s 


S521ea SORDER 7: PRPESR FF: CLS . IK 
wae RANT -"""EE BYER Gwe CaLaun 


S62@ LET A=CODE INKEYS 
3538 If A<+498 Of Hass FHeEw 22 ro 


3640 LET Cis=A-<8: SEP .5,cCi 

S6S@ FAINT “" "PLAYER Fim’ COLour 

:ee 7" PRESS THE KEY FOR THE CoLe 

us Yih WANT NOS 

SSSe@ LET AsCucpeE INKEYs: IF A+<45 

OR AoSS THEN GQ Ta sase 

S678 LF Ca=AR-48: IF Ce=C02 THEN 

SO Ta ceSse 

SOGQ8 SHEEP .5,cCea: So Ta vese 

see INPUT “TYPE YOUR NSANE f° SENT 
* TO SKIPI“:; LINE Rs 

Sc41e fF AS="" THEN GO FR orae 

Sree LEST Pe=Rs 
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="SPECTRUN’: RETURN 
saa Gueut "PLAYER QNE NAni GSNT 
ER TO SKIF3 => LENE 3S <acenas 
22ie x Rs=° ge Ge re =e 
aaae Gheur preven THO NAME TENT 
ER 20 S838) (haNF BF ro case 
Saae iF = ror SS SS SS 


QBSea ASTURN 


liser Perined Graphics 


a eet “eB 
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Four in a Row 


From the fertile mind of David Perry comes 
this version of FOUR IN A ROW, The program 


cea full instructions and has a hires 
oad. 


This is the program in action: 


oe 2&2 FOR nA=2 Fe F: REAP 2a: PGKE 
meat 2 ee -& NEXT m: Fe StS SrSsse 
S ra. PIF FT. 

S BATH Ge, 225. S25 .f59.,=05,.255 
7 i2t.,c58a 

18 BORDER & FPRPER 8: INK F S 
RIGHT 2: tLe 
5 2@ PRINT 8F 2, 72"2 23 £5 & F 

Fos ——3 Po S06 SFrSP if 


ew NEXT ni 
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SH FOR w=-424 TO 32¢2 SBFTEP 26 

4@68 PLOT Se.r: DRAW 218.8 

118 NEXT ii 

ASB FOR R=324 TO #4: FLEYF 252-R> 
DRAW LSS. e3 NAT 7 

ue 3 LET Ptsy=1 

44@ GRIGHT © 

2P@e LET flav=ai: FRINT aT 28,6. 
THK F: PREFER =: FLASH A: PLAYE! 
io“: PRINT AY i8,2;43:° a 
2Bie@ INFGT “nove & avee “lO 


a2ee TF moo? OR moti THEN Go TO 
4 
23e@ GO SUB i1aen 


2S5@ LET pPiey=ss: PRINT RIF 18,58; 
INK 7; PRPER 2; Finish 1;" PLAYER 
2 “*: PRINT AF 38,3;58; sie 
2E@ INPUT “MQUE PLAYER a 22 ao 
7@ IF moo? OR wosci THEN GO TG 


BE@ GO SUS ifee 
29 GO TO 282 
23@8@ GO TG ifs 
L@G@GQ FOR i=68 Fa i STES ae 6% 
N,mOai=3 THEN NEAT Ff: BETUAN 

La7ea LET fF in .%G3 =5 
3@3@ IF ptsay=i THEN FPRINT AT ste 
nh#2),. (mo#2745; INK 2: BRIGHT i: 


1891 IF risu= 
mFS). imei es 


2438 RETURM 
Ate Bh ia Ne Za. i 
RAL zi?fS: BRAW 
7S: BaAU -255,28 
SASIa PRINT AF 2; 
FR 


<= 
= 
. 


fir #YF Git 
J 
* 


TeHT 3;° 


if FR zit RR 
See PRINT Rr 
=a -« 


S@GS@ FPRINYT HY +4; in the ssne o 
f “; FLASH 2: PRFER S&S: INK FE "FOD 
uR IN A Row 

SQ@da PRINT THS 2; “you must try t 
e derest yvour “: PRINT TARAS 1, "or 
Ponent by connecting four oF": P 
RINT TAB 32; "40uUNr counters if ar 
Cw EL1t*tnhEe rr": FARINT THs 1; “VERT Itch 
LLY, RORIZOQNTRLLY ar": PRIN TRS 
3; “BDERGCONRLLY.-- @&9.% 
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be Id ba 
ped hd 


abe 


Peowghes 


Tog 


IF LEN e232 
31 PRINT AT 


Meg 5 


bu 


1 sis. ” 
Bae 8 Li C4 


rT di sew AIDED 


ST 20,3; % 
RY 28,141; “FLAYER 


AT ev.is: 
ENTER TG 


OO a 
genie es 


: INK 
= HMHENCE!!F! 
PRUSE 8: 


Tanx 


This iS a two-person game, in which = you 
have to try and shoot the turrent of your 
opponent's tank. 


Here are the controls for pLayer one: 


Left - Z 

Right — X 

Up — 2nd row/Left 
Down — 3rd row/Lleft 
Fire — Top row/Left 


And these are the ones which plseyer two 
should use: 


Left — M 

Right — Symbol Shift 
Up - 2nd row/right 
Down — 3rd row/right 
Fire — Top row/right 


You'LL notice that the tanks disappear 
for a moment when a shell is fired, but 
they can still be hit, and can still move 
out of the way. You must not run over any 
of the mines dropped by the shells. You 
have three Lives each and the first to die 
is, naturally enough, the Loser. TANX was 
written by Neal Cavalier-Smith. 


2@ REM TRNX 

15 REM Néal Cavaelietr—-Smith 

2eE LET XI=INT {(RNOS203: LET vi 
LET xX2=INT tRHDs20)1; LET y2= 
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“ te wT x 4d) ul ot a \u 

+ mM s+ ty ail!’ «9 a && el = 

a a 1 | x A odo +4) “ re 

% ak M8 + ee | u | ett + ee | 
mm ood al aon ot toad xq a atoll 

kK + thE * Pw @ ar x t 
Cab Act " noo a om & xa i Wood 
mz I) A om eK ty 3 fom ny ed oth 

fe of fe O (7 “x (Wi «Cl a be) 

2 4@ @2z Z * fe fe Qe sh x kK 
MH cf TH He Che Lu Wp a) ' (oh WW 
ac x ur Pl Jet tts: yoy if att a oa 
O + «0 Oo =f bb hd a M 4.0 J a ' 
“AG a AHZaLehes ANZ: TeMO 4 GO Aza 
2 £B° wie a OU AU CLC nt de oh mez tu 
VA ie) ed 1 es De eA cub te ZMH Weat# 
xr MW wrt Tt 2EGFOrOrFaLOGe ol ww a Wo ZOGhG 
f= Khe fe TOC TZ A Ae kB oe UO | ATAU 2 
Trad wih TRE GOKOCOO Ago men wu whore Gott 
Tat CG ok LU b= Ch rh Ed ei Pet Reis Reds Red Bad rt be Ci] Wal (Ge ot OO bowed ZO 
GAUL ov i eid am edt edt f we tr ~ % ADE i mag +n 
cat ae oe es OS | YO) | ce) 0 ne) cea TRU aoa lee RET Re 


ACR AMAU KOE DEE CH HZ WeabRRee TD YROHIpled AS 
wy AO, Oe 2 Mh onl “4 up Wd Shp MH KR othe HK ot yy Oe ne 


EXT 
a 


= TL Rae CO Lem tM a Oe De ded Os aia A elt 
WLLL. LU GF Ou UG ou, Gk Cul SED US ALL Pe LL, oC LL, LS LS Pe OL te Oe LL LO LO LU LL LL, UL, uk, PL. <0 
as i OO w REC UT OA Ot Og Pa Ta PL ee OO dO WR Red 
(4 ' on FU oi ft be x AD g b. a x 
Qub 1 Beis) BSNS SOOUNAHAD Ve CC STC a SE ea Le Sa OS Let CL ete 
det: (Ooi Ad HAO shOd tee xb bbl MMO a DOM OG a detec 
Oy «2 OP RO mmelO Re Rog Si Leis enn me Tt ru OU Tra a + oststst ot Lu 
Ca a ee || et) " Bs a be Fr vad 
a & DKS 6 & te Pe ~ Md Net ot 
iq LS PRR RE ial * + FF rFR FE F \t fae se 
fea 4d OF WW BW © wm OW Ww WwW BY 4 
W %. OS) Bo oO Mi! x -A 4 Ad GI M4 be Wh ‘om 
J tm a “ os we -f Ww we oe “ee WW i] ant tl 
Wl a Sa RP Aes 33 
te J © QQ xa KA DA met Ch xa xa tA ae Op. aA 
3 Il | I ] i \ | iI Ge tote, te 
if kek OO Gi Oo ga eK re Oo Gi gi ga iW) ft) +H ly 
a & (2 £ 26. 20 Za Zell sZ2 £ 2M Zak Zo ZW GC In et 
al HH fy Cat Cet Cm HoH x CO Coy on fe WOOO. Ih 
x a -o © K 7 sie? 9 a “ Q 
us sO OG Wi- WwW (4 tte os Of UI i) mf (Vp LY Chee ef 
k ca HUW We Wi ilu tl Tf oe ite Wil fain Od Al 
WI fe mz OL OOO ty “ond 
.! ( “UW WW» ve}. Uy On “WW oul Ve! het m, oa. 
(Ho 1) mit Ir Wm. 8 (o oO. Wo tL & cy (3 (u oO wW gy Aw 
I et Ae ee CO) A eB lO y law “(0 
Ao wo Gr Oe edt (y+ ot zO t 
UO AA Oo G Viel +) Dl ie be ef Wp pC 
AK Non a oO) 6s OM Ge om TH ll fal AO 
aH wei i i ee: ee “CD at 
Tho JID Re wd Ze Zi Zl Za BM A Z wOBARZ 
Lu fe Lyd mt ome Ae Het Hed Reon wes och be OUIT SH 
bee ad fee UU Ht x pl) H z = HH 
UW WOO CW OTS Wes ib ok LL eb fils th UL, ete LULL LL Ue Oe i, 
wd ed COCO OSD He A LU PU Rd ORC 
-e 4 A U6 WO Wo jf Qf 40 Wo WS WIG BO 
eoraietst2 AMA Ge NG Ge UL et eh Oy 
De toODr BOGS 12 ON 20 Ot SOG “ome 20 ANE OGG Gea: Aedia 
O 0 eet bet etlifdet Zetetz Pedeilipedcied bet CG rtiy Wyetiz = ON 4 He LACH) CY CES CCH.» HOH CH CD 


1 aod Dan ubsn Li Ty wou Da We Ue tx i : I 
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#17 IF #253722 THEN LET “1b=-12:; 
LET YS3Ebr-INT (RNDSs3) -1 
415 IF x*¥2=5°28 THEN LET x2b=-21: 
LET YAib=INT iRNDSs3) -2 
tio -2F X2S33. THEN LET £32.62 Le 
F YEbE=INT tiRND#3:-2 
420 EF S=xN2 SND Yb =e x =X24tn= 
& RN ~=sye2sySb THEN Go susa 2eaos 
438 PRINT AT x®.yu:i" " 
435 PRIRT AF *418,0285"." 
435 LEY H=KAS > LEY weurts 
449 LEFT Mais = #xX LE 
452 LET yas $uidb 
468 NEXT o 
478 LET cis 
+ow 
205 
LBbee8 
l@ie 
2828 
2048 NEXT x 
ISS6G NEXT = 
3268 DATA £8,226 ,255,255,255,.255 
156,682.24 ,24,24,24.24,24,24,.24. 
2,8,0,255,255,.5,.6.08 
2858 RETURG 
SReeo FPRINT AT x*2,42; FLASH 1; "Se 
LERtg" 
Sees FOR Fz=5 Ta 2zee NEXT Zz 
Sees PRINT AT X2,4u82: FLASH O;" 
SQLS LET li F€eS=lires-t 
SELSG FEF tire2=8 THEN PRINT INVER 
SE £5 FLiRSH 1; °6G A H-E O--&. 
Pitsuer 1 wins 
": STOR 
2EesEe So ro ice 
att PRINT AT X1,4U2; FLASH 12; “Se 
LEItH" 
2SE05 FOR x=S TO iva WEAT 
#2206 PRINT AT x1.4u1 FLASH GG; * 
BESS LET tifei=tirfei-2 
SSEeE IF tirei=8 THEN PRINT INVER 
SE 2; FLASH A:"G ARE ow E&E R 
Pisuver 2 wine 
3 B&IoOP 
SSSaa E25 TS ice 
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MACHINE CODE 
UTILITIES 
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Memory Monitor 


This program by David Perry allows you’ to 
examine the contents of ROM and RAM. It 
has good hex/dec and dec/hex routines, and 
allows you to move, save and Load memory. 


THIS PRCOGARHHE WITLi REVERL THe 
COTENTS OF YOUR BOM & RAN _ IN 
THE FORM OF ROSHRESS. AODRESS IN 
HEXeDECIMAL, CECIMNAL VRLUS Rt 
THAT RADPRESS,HEXADPECINAL VALUE 
AT FHART ROGCRESS &2 THE CHARACTER 
CORRESPONDING Fa FHE URLUE AT 
FRE ADDRESS. 

THE FROCSRANME WILi RLSO ALLOW 
YOU TO FREELY HOVE MEHORY AROUND 
-CONVERT HEXADECITRAL FO DECIMAL 
AND UISA VERSA AND ALSO FO RUN 
A ROUTINE FROM AMY AEDRESS 


ADDR+HEX: DEC: HEXPEEK: CHRS: 
2 2 = MEMT 


eB et 2 Be =™é 
i Beez 27s os a LoS 
= 8eaa2 17 Beli £e 
3 8893 253 Barr cory 
4 8894 255 @@FF corY 
5S 8085 iss @Ecs NOT 
6 8885 2852 8ec8 THEN 
F Beer if BSit “f 
3 S685 42 @2fenR * 
SS 2e8e@o $2 Vso 3 
32 Been Ge Bese ~“ 
ii Bees 34 Bace o 
if ¥62c eo Bear <. 
is 8S@eeD = F=3 #esc x 
24 BOGE 24 SGis 4 
15 @@ear = S@¢a = 
i6f 8618 igs Becta NOT 
iv @B@11 e242 Gara PRUSE 
A: NEW RODRESS H-HEX-DEC 
E: EXECUTE CODE Bb. GEC-HEX 


S-SHVUE + L.-LGARD SYTES. 
HMH-NOGE MNENMORY C—-CONT INVE 
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RD LTT 1) 


HOMGRY MONITOR 
i See PERRY! 


ssa 


ERIGHT 8: GO SUB Fee: INPUT 
“;RDOG 


_ 
ri 

“STRAT ACORESS 
3a 


GQ TU 3328 


4@ REM HEX-CEC 
S@ PRINT AT 22 
68 PRINT RAF Se.a; 
7@ LET A=8: LET E=8 
S@ INPUT “Hex. Characters 7? “; 
AS: LET O8="8" 
S@ LET a=8 
i@@ FF Len Seen FHEN Go FO 128 
11@ LET AS=CHHRS: GO TO 18¢ 
X26 LET W=4826: CET R= 
i3@ FOR R=1 Ta ¢€ 
iaG@ FEF FN PiRstiRi) ss. OR FN PCRS 
(RI}>25 THEN ce To 
1S5@ LET A=HANsFN F iBs FRI: LET 
Woes 
T6@Q HEAT A 
i7e@ PRINT * HEexBdEecCAmMSL: “SR 
i188 PRINT * Pecamai: “ss A * 
19@ PAUSE @. RETURN 
228 REM CEC-HEX 
2186 PRINT RY 25,8; 
222 PRINT AT Se,8: 
SQ INPUT “Detimat Number 7 "3h 
a ose. APFGS5S35 OR iB THEN GO T 
ao o 
_25@ PRINT AT 2a, Cre + Pith tebe gage iF 
> PRINT AT Bit + ak Seeaaecie 


ET U=ss8SS- LSr v= 
= Faris ts fit 


EY Ko GB. 
PRIN) PRPER 7; BRIGHT 1; CHR 
+ 


If U>=1i THEN Gc To 27a 
RETURN 
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32@ REM MAIN LRYOUT 
SS@ PRINT AT @.8; PRPER 5S; INK 
@;,** ADDRtHEX- BEC: HEXPEERK: CHR 


B48 LET GO=ADD: LEFF FO=S=ARPLD+1F7: 
FOR L=Ge Tao Fa 

35@ LET DEC=FPEER RES: LEFF Cs=CH 
as (OEC AND DECz32}1 

6&@ PRINT TRE (2 AND ADD<1Bi+f1 
AND ADD<iBGi+riti ANOS AOD < 1BSes) + 
1 AND ADDi1@eBe); INK 7; PAPER 4 
;RGG; PAPER F;* 

SVB LET A=RBD: ao SUB 262 

Bae PRINTF “ “> PRS SPEC: FAR 
PER f:TRB 27; : Ler H=DEC: GO SuB 
2o@: PRINT SRPES FIRB 24; FRPE 
R_ o:0s = 
QS8 LEFF ADP =ADP+4. IF ADO spsses 
THEN LET hed alias 
4@0 NEXT 
41a PRINT BT 22.2; PAPER 2; INK 
73" AR: NEW RBOGRESS H-HEX-BEC " 
426 PRINT AT 28.2; PRPER &:; INK 
6; E:EXECUTE Cope oO: SEC SHES =: 
#38 SHINY SY 22,2; INN a - 
PAPER 2; S-SAVE vob “OAS syTES 


448 PRINT #1: M—MOUE NEMORY 
C-CONTINUE * 

45@ LET te ENKEYS: IF Y$="" THE 
N GO TODO 45 


46@ IF Teo"A” OR PS="a" THEN RU 


47@ IF Is="h" GR IS="“H" THEN SG 

SUB 4@: G6 Te 428 

$808 IF FsS="5"° OR Fs="s" THEN GO 
26 


40@ IF YSH="a" OR TH="ED" THEN Ga 


2 Ge 
S$23@ IF I6f="m8@" OR IFS=“H" TREN GC 


2S" OR Tecs"s" OR TS 
*C"* OR 13<>°%hH" OR 3 
2"*d" OR sB43"CB" AR 
> gt ake oR i ==" c J R 
"Ss" OFF AgStIS°MY TH 


S58 GO TQ 418 

See REM RUN ROUTING 

S?Pe8 INPUT “Eeecut = BSdwurest TF GE 
Soe RANGCONILSE tsar EA: FHUSE - 
RLIN 

See SEM HOVE MEONORY 4 
S6S@@Q INPUT “Meve Frem Rddress 

Me 


61@ IF MFse5S35 OR MF<@ THEN GO 
TQ See 

ee? INPUT “Mave To Address 7 “5 
63@ IF MTs6SSS5 OR MT<@ THEN GC 
TO 626 

64@ INPUT “Num 
Sues 

SS@ IF NT3N2185 
us Foo Any 8 
PAUSE @: GO Ff 


er oF Bytes TO Mm 


b 

S3S THEN SRINT #2 
YTES FRY RGRIN ”: 
Bes 


Sao LET MyY=fMTsa- EY WF =MF+2 HI 
=AT FE 

Fes CLS 

Fie SLE FL Basaet 

7iS REM INSTRUCT Pars 

72 PEF FtRSs! = Core Hs-458-7F= 


N t 
2sxitRGo'2Z" 2 
ars PRPER 2: INK @: © 


meee | 
ron” PRINT AT 2,6; "HR NEMORY MONT 


avr PRINT AF 3.6:"8 © DAVID PER 

rt re 

7O@ PRINT AT 4,6; “ tees 
S.63: 


772 PRINT AT 0 rere pe ES 


7S PRIN eae. “FHIS FPROGHARANN 
E WIE REUERL THES: PRINT “COTEN 
TS OF YOUR ROH & RAN IN" 

73e@ PRINT “THE FORE OF RODREDS. 

ABCRESS IN": PRINT “HEXACEC INAL 
; DECINAL VALUE AYF* 

GeeG PRINT “THAT ADDRESS, AHEXADEL 
IAL VALUES: PRINT “AT_THAT AODR 
ESS & THE CHARACTER”: PRINT “COR 
RESPONDING YO FHE VALUE AF 
B18 PRINT “THE ADDRESS.” 
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B28 PRINT “THE PROGRANME WILL A 


L150 ALLOW: PRINT “*FYDii TO FREELY 
HOVE MEMORY ANROCUND 
B38 PRINT “.CONVERT HEXACECINAL 


*O DECIMAL”: PRINT “AND UISA VE 
RSA AND ALSO TO RUN": PRINT "A PR 
OUTINE FROM ANY ADDRESS“ 

848 REN TREE LOABPING ROUTINE 
B5@ INPUT “So YOU WANT TO LOAD 
& PROGRAMME FROM TAPE tr OR MN? 7 

“:¥s 

S698 IF Te="¥" Of Ta="u" THEN GO 

TO 838 

878 CLS : RETURN 

BBG INPUT “Address ta toad byte 
B egret 

69@ IF t>S8S35 GR t<@ THEN Go T 
o sae 

980 PRINT FLASH 1; PRPER 2; INK 

7;AT 23,8;" PRESS PLAY ON TRPE- 
RECQRDER! 

91@ LOAD ““CODE t: CLS : RETURN 


See REM SAVE MEHARRY 

oon ENFU?T “SRE FRoH SEemess 7 
IAS 

$42 IF SF<8@ OF SF2e65535 THEN Go 
Te soe 

gute INPUT “NUNBER OF SYTES 7 “: 


5°83,7° MN<i2 OR NOBSSSS FHEN Ga T 


& 
S72 INPUT “SAVE NANE F “35 
@Se@ IF 38="" GR LEN Sesia 
GO Te ora 
BSe SAVEC SSCOCE SF. 
i8GS RETURN 
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MC Screensave 


This routine, from David Perry, is written 
for the 48K machine. It allows you to 
store and print up screens instantly. It 
can be used in any program. 


41@ BORDER G&G: PAPER @: INK 7: © 
{ts 

iS RESTGRE 

16 FOR n=48068 TO #8625 

26 READ a: POGRKE m,a 


40 DSTA 3S5.8,.64, re: 4i?7,.i.@, 

27? ,-237-176- 3Si.33 146 SAP ett as Zz: a 

314,6,27,2357,176,.261, ia5, j4a4.234, 
28 


5S&@ PRINT AT @,4; “LGAD SCREEN F 
ROM TAPE AND I VILL": PRINT “SRY 
E Iv INTO MEMORY FOR_INSTAN 2 FF 
RINT “RECALL AT ANY TIME???" 

62 iT aad >: PRINT “TG SAVE SCRE 


7@ PRINT “RANDOMIZE USR <e8enn” 
S@ PRINT : PRINT “TO PRINT UP 


S@ PRINT “RANDOMIZE USR_sABeleS" 
1@9 PRINT : PRINT : PRINT “HERE 
IS AN EXAMPLE.’ 

erage FLASH i: “PRESS PLAY OG 
236 LORD "“"SCREENS : RANDOMIZE 
USR 4Rreacke 
348 PAUSE &8:. CLS : PRINT AT 8,8 
7° PRESS A KEY TO PRINT UP SCREE 
Nv: PRUSE @: RANDOMIZE USR 4ee12 
: GO TO i4& 
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BASIC Screensave 


This is a BASIC version of the preceding 
program, also intended for the 48K 
computer. It was also written by David 
Perry. 


2 CLS : PRINT “TRIS Peg ena 
WILL STORE THE": PRINT “SCRE 
IN NEMORY AND THEN PRINT IT BACK 
. AS AN EXAMPLE FT UILL": PRIN S 
LIST THIS FPROGRSNNE,. SAVE IT AND 
THEN PRINT iT SACK ONTO THE” PR 


e 
2 PRINT : PRINT “TRE FROSRANH 
E ©S TOTALiyY BRSToO*: PRINT “ANC 
CAN BE USED FOR WNANY': PRINT “Di 


FFERENT ce. TEES har 
PRI > PRINT “PRESS ANY KE 


3 
y to Sfaare > PAUSE @- CLS 
BASIC SCREENSAVE 


tcl DRUID PERRY 


List s@ 
H=SHaSE: REM ABDPRESS Ta 
@® TO 21 

7@ FOR Y=8 Ta 31 

S@ LET Ags= SCREENS ex.¥3} 

SS PRINT AT &.,¥: ~ 

SB PORE AL.CObE As 


148 REN =s+++PRINT UrPssss 
oe REM 
LET =SEESEaR: REM 
ORD Fate RAODRESS To 
i7e FOR x=8 To 22 
188 FOR Y=828 TO Si 
19@ LET S=PEEX & 
2EGQ PRINT AT X.Y; CHRS &B 
229 LEF A=he 


DRA 
—2 7 

—Piy 
DRA 

= 

=e -—2 + @-: Db 
D 

DRAU 


-i.3.PiI-3a: 


Pao 9 


DRA 
-S,i,80: 


—-2,@: 


DRAW &.5.8-: 
s -2. &: 
CREW & 


DORAN 


.225: 
DRAY 
£25: 


ss 16 sO ~& 


wl Bet ls sm I 

J 4 se aH® ON =e doe Cl 
6 eeitan ta a wv a CT 
1 a aa #% oti I » srg CHONG SS 
fs Hoge « MMH TH ATT ieee t ea ahs 
“(ACU fed abdeg ALO | Od = 1 wht et 
of i ssihp | i Fey AE ye Aa Ree 


an 4 Uf alin 4 


os | a ee 2 | 
a eV 
died 1m | al He 
¥ hy mc 

oC) bed OQ CY Ys + nl 

 “f) «mM lag + 


WUD o> Fs bet 

+ a athlib if). 16 » aio 1 AGG, 
bg OIC 1 Fe Tk | ae 
owl eS tone nl OU 9M» seo 


“Ath “UL st sft Be Bed ot ee a OO, 8 
61 etal 6 oat HUW Ole ot | at os 98 |» -OOUG 


253 


36.93: 
DRAW 


265 PLOT 
-1.2.@: 


Ireland 


sty. 
(es |) 
a) « at bed ss lett + Hed 
BAO OH Mh OG et Vedcinde sted ete 
6.4 me ( “~ end Sy Ci +e 
Ste besdcs oee <a hes rage tt ne oft Paci ! triton aes nit a 
| ad Ot: GOMEO EO Sr ER SHE dE ok Oededoedd «0 
L2NROG TODHOOU Geo EE AG IEG ICH wd CaN des 
FP OG (ADHGOLG 1G 8OG HH Oded <0 3G) ood wOGONIOHS 1 rt) 
we eOtod ‘en if wa, | sgh & aed hte eaesee Loans & 
KAHHhII TO) st nid O' 96 +16 -O0 “OF «> -QdRH® SH 
CT MEE -6 GH TAHON > «Oo OO hs “OH eg IANS 28 orth 5 
( “ yw, s " % * 
RMA Tes or MOB ee SdH sdb oO do sod 
PU a>oOdodc G 
Ors pHe a 
> orgmdgoaooe# at 
o mc > Iw 
&- O oo a = 
& O30 OH ,, 
o cocw mc ae 
>or o> 0 ‘ 
oOroodtavrvr fo4 
o orccwnnya 
oO PHPrZ c 
nm- Ec Wea er 7] 
ooonmcecwWw oO wo 
qc oocvece 
one oo 0 @ 
cf£coou Hoo it 
nae oOo re 
2) oar s = o 3 7 Ch ith) 
- 09OO or hy os i) W Ty) 
cee PP = Poe 7 Re rH f 
SSaca 2 o PAD tad MY tad td UD tL tad oh leolag one 
2 Be seem se swe hs Mb 3s Oe 6 Ob oe 
EcOovPrce#e ef Hy oo m on 6 Add hss : 
o53 0 ozo00 Wo Meds Ged ed ss Wd an OA nn Med as 
a Se the nee AM met Hg Mp Nf) Nm mm CD | ro. Ahm) HH meme) I hm 
= - ERs J ey ba Ne ‘te 
- Fan ’ . 3 OBE GSer G3 
S¢2,258P G bata batehbeterbutenomeexoncak 
>Hoocmocoaome " Wd ad Dd Ce ad Mad Od de 
DER BG GC PM OL Wa) CHM Oe Ad OU 
FO S8* fF. 3 O GheeOZhnrazonoozh neocon 
<= ® o oc 
Oe&> oo CW CLadddda ade GOGGNBOVENGOOGHeOOS 
-oePPHP : wd CH) CY ah gk A) Cd f= C8 0 TN ed CU CH Fk WA 
ofrostecaa ih MO ae okeket eked eter ef 101000 CUCU CuCl 
FrPOvyore Dd 
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1129 DATA -2,.3.Pies.-2.,.3.,.Pievad.,.-3 
262,.9.4,0,89.5.5-09,2,7,Pi-e#,2,6,P1 
/6.3,6,@, -—2,35,Pi+v3,8,11,Pi-s 
1136 BATA -3,3,PIv4,-2,8,8,.3,1,;@ 
72.-1,0.0.3,PZ,-1,3,0,0,5,PIv1.7 
,—2,5,6,8.5,Pivl3,60,35,Pi73.,.-1,4,8 
Seta Tee rele se heeeP ACS LS se 
= z - 
12428 DATA 4,.0.8.,.2,2.8I/3,-1,4.,P1I 
38@,7,.PI76,2,.1,P12,2,-G58,2,9,PIi,- 
i1,16,PIr6,-2,3:Pir2,-2,1,2 
1i5@ DATA -5, -3.,.PI+“4+,8.2,90 
2169 DATA 121,;5,P1+76,2,5,Pir4,-3,.8 
,PEI41.5, -3,14, -BPisi.5.,-3, -68, -Pi¢s 
,1,-1,6,4,-1,PI/5 
1i78 CATA 3,4,.9,5,6,-Pira,-1,1,.2 
e-2,-1,0, -2,.-3, -Pivs,-3;,-a,;,-Pivs 
.:@,-S,-Pi-re2 
1160 DATA 3,.2.6,.2,-1,8,5,08,0,-—-S. 
3,PI*6, —-4,3; -Piv1.75,—-3,—4,PI+vs 
1196 DATA 2.3,98.-2,5-Pi+2,8.,-2,8 
29, -3,PI‘2,8, -3,Pis2 
2206 DATA &.,.-S.PE°6,86.-4.P5+6,1, 
2,2.8.3.6,-8,.5.,.P35+-6,.-5.-i1,.& 
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1" 


Master Copier 


This handy program from David Perry will 
copy machine code programs automatically. 


If there is a BASIC loader, then you must 
copy it first, by typing MERGE "" then 
SAVE"name" LINE the Line which Loads’ the 
machine code part. This program reads the 
header, loads the program and then tells 
you how to save it. Just follow the 
prompts and you'll have no trouble using 
this program. 

5 GO SUB 3i 

& SLEAR 3274 

7 FOR iL=SB7Se FS 

& REGD x- POKE bs 

3 DATA 55.62.5:== 

,2@,@8,285. sé, 52a 


= 
44 PRINT AT S,.2; FLASH 3;"5 AN 
NOW LOSDING THE HERDER! "; FLASH 
@; AT 7,18; “PLERSE URI 

is RANDOMIZE VSR 32745 

43 LET vat: GG Sue ia: LET u=e 
44 CLS : PRINT AT G&G.18; “Heater 


S IF PEEX S29GG=G THEN GG TC 
16 IF PEEX S2SSS=1. THEN GO TO 
37? IF PEEK Seeee-2 THEN SO To 


15 IF FPEEXN S26G6<3:5 THEN RUN 
LET 2=$=“": FOR B=S2601 TO S 


LET ESOS SE CLORE iPEER 6} 


22 LET o$=2$ 
A=PEER S281ii: LET S=PEE 


24 LEY N=8+ (622563 
25 LET R=PEER S381S5: LEF BS=PEE 
K 32e6i4 


26 LET H=38+iBs2oR2 

27 LET A=PEERK B29i5: LET B=PEE 
x BGESeais 

S25 LET G=Re (BS355) 

29 EFF vu=132 THEN RETURN 

3G Ga Fa 4F 

32 GRIGHT i: Beco 8: PAPER G&G 
: INK 7: CLS : PRI HA 
STER caPprer"™ 
ie PRINT ”™ ==-=-S-=-=-S-=-==>== 


B44 PRINT “THIS PROGSGRANNE WILi 
=" 


VS _PRINT “CODE PROGRAMMES RUTO 
MAY ICALLY.” 

36 PRINT 

SY PRINT “IF THERE I8 A BASIC 
eee THEN YOU MUST CaPY IT FIR 


SS PRINT “BY TYPING MERGE™™"™ 


SS PRINT “SAUE “name LINE th 
€@ Lins #hich in2aags ths HB@thie ec 
Gqde Ppart™ 


46 PRINT : PRINT “THIS PROGRAN 
ME REARACS TRE HERDER” 

43 PRINT “LORDS THE PROGRAMME 
AND TREN 

42 PRINT “TELiS YOu HOW To SAV 


43 PRINT : PRINT INSERT 
CASSETTE AF START OFHACGINE COoBE 
SECT ION" 

44 PRINT “2S...-.CHECK LEAPS* 

45 PRINT “S..:-.-PRESS RNY KEY lw 
REN RERBY" 

45 PAUSE &:. CLS : RETURN 

47 CLS : PRINT AF 1,5; “MASTER 


4&6 PRINT AY 2.5; “s==s=s==>=s==S=== 


49 PRINT #2F 3. G; -Ta Save Ehe fF 
FOSTaMMe HOY GVH". PRINT “cassett 
€ Uo must First OF ALE 

5@ PRINT “have saved the basic 

idader and”: Perse ate nus re 
wind? the cassette te”: “2h 


@ start of ths MBCHIME cooe” 
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S1 PRINT “serctien then “NEW t 
his“: PRINT “pregraame and type” 
52 PRINT : an eer “LEAR ess zs; 


DE 7B; 
53 PRINT cheek LERES.PRESS A 
KEY .PRESS*: PRINT “PLAY ON THE T 


APE RECORDER...” 
S4 PRINT : PRINT “When it has 


Leaded type: 
55 PRINT : ge al “SAVE “; 28; ° 
CODE “j;m;*,™ 


S6 PRINT » INSERT BLANK CRSSETY 
E,CHECK™: PRINT “LEADS, PRESS REC 


“SG IF ag="y" THEN copy 
53 IF ag="h" THEN PRINT AT 21, 
BRIGHT 8; "YOU SHOULD WRITE TH 


66 INPUT “fre there ary more Mm 
enane COds sectisgAs to cope tyuy 


3"; 3 
62 FF ag=“u~ FREN RUN 
r= PRIN? AT 23.282; FLRSH_i; PRP 


ER ; "PRESS ANY REY TG ‘NEU’?EIE! 
63 PARUSE @: PAUSE &: NEU 
64 CLS : PRINT “ov have just 


Loaded a BARSTC*: PRINT “header” 
65 PRINT ~ rT. tS CALLED" 
66 PRINT =: LINE “i 
6&7 PRINT Fie BSR5Io LENGTH Is 


5 

68S PRINT :- PRINT “Press anu ke 
yY te fun Programe: PRINT “sgazi 
Meee > PROSE &: RUN 


69 CLS : PRINT “Wou have gust 
Loaded 3 NUMERIC’: PRINTF “ ARRAY 
header” 

7@ PRINT “iT IS CALLED" 

7i PRINT ZS 


72 PRINT : PRINT “Press any ke 
yu to run programme“: PRINT “agai 
Me..." > PRUSE G&S: RUN 


73 CLS : PRINT “You have vust 
insaded 3a CRARACTERS: PRINT “ ARR 


GY header 
Fa PRINT “TT IS CALLED 


75S PRINT 2 
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7G PRINT :- PRINT “Fress any ke 
wetoO Frun prsgrsamhire’’: PRINT “sgasi 
Mee." : PRUSE @: RUN 


HASTER COPIER 


THIS PROGRAHMNE WILL CaGPY HRCHINE 
COCE PRGGRANHES AUTOMATICALLY . 


ZF THERE I5 A BRSITC LOADER THEN 
YOU MUST coPY IT FIRST 

BY TYPING HEREE' THEN 

SAVE 'name™ LENE tine Line which 
foads the Parhis coeds part 


THIS PROGRANHHE READS THE HEADER 
LORDS THE PROGRAMME AND THEN 
TELLS YOU HOW TA SAVE FT. 


3.-2.-+iINSERT CRSSETTE AT START OF 
MACHINE CODE SECTIGN 

2..+-CHECK LEADS 

S..2..PRESS ANY KEY WHEN RESDY 
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UTILITIES 


AND 
DEMONSTRATIONS 
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Biorhythms 


Now you can chart your ups and downs in 
this graphical BIORHYTHMS program. 


There are three cycles, which begin at 
birth and continue right through our 
Lives, which are believed by many to have 


PHYS ical fients emotional 


an effect on our Lives. The three cycles 
are as follows: 


PHYSICAL - this is a 23-day cycle which 
controls such things as endurance and 
strength 


EMOTIONAL — the 28-day emotional cycle 
governs feelings of optimism and pessimism 
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MENTAL - Logic and reasoning come under 
the sway of this 33-day cycle 


The program is self-prompting and produces 
a very effective display. 


4 RESTORE 
2 PRINT AT 2.3; BIO 
_RHYTHH ; ea? 
10 FWRUT “Enter Date oF Birth 
‘hau. “saa” Month “3 b, yesays 
ae. ae : “ 
Pa INPUT “Enter Date Now 43 
Fiantih pres. Year ;e 
25 CLs Mike SCO 
SQ@ LET t=INT (i ie-c) 4365.25) 41 
id—-bi 50.3553 -a} 
SaG FOR r=e To oss 
eae A , 
ei2 Bey tir ir-bleb THEN FOR wu 
=18 Tr ee PLOY «cf aube NEST wu 
S26 NEXT 5 
S3@ PRINT AT 21,0; "Ist aath 
aot Sath” ae 
S4@ PRINT AT @,&; INK i; “physic 
at. “%; INK 23 “mentat >; INK 4; 
emotional" s 
Sah FOR r=1i Ta a 
Ba5 READ u ; 
BOS PES Usshrett-tINT fttzut #0) 
fu * 
S28 LET k=2ePI24(5G-ui *.83 
1000 FOR s=t TO k+l+t2ePT) STEP 
4 ) 
3012 PLOT INK ((4 AND uvs2a1+(2 A 
Mh wseDSi-¢4fr4 BND usaBGI3; ta-lixtGs 
-2S+u:i , Sa+SIN at5@ 
1920 NEXT 2 
ja@saa NERT ¢ = 
104@ DATA _23,28,33 _ _, ie 
$0582 THEUT “Anothec Go F ;ss-: fF 
FE aefti=e"y" THEN GO Ta 41 
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Paint Pot 


This clever program from Graham Charlton 
fills a randomly generated shape with the 
current INK color. Lines 10 to 60 draw the 
shape, and the subroutine from 9000 
onwards fills it. Make the strings (A$ and 
B$) as Long as possible on your computer. 
Note that they teke up a Lot of memory. 


CIRCLE 126,&0,15 
PLOT 198,68 
DRAW 4a,a 

DRAW @.40 

DRAW -45.9 
DRAW &,.-4o 

GO SUB seBe 


=. 

DIM as(9a99) 

DIM bs (S999) 

LET. >=% 

INPUT x 

INPUT ¥y 

PLOT x*.4 

IF POINT ({*t2.ues +P GIN te -2 
POINT (X,.U423) ¢PGINT tx .u-bs ¢ 
HEN GOA Ta Sia 

LET 2z=2-1 

IF 2=9 THEN RETURN 

LET xX=CODE agi{z; 

LET yw=COPE bS (zi 

GG TO SG65oe 

LET a$(2z) =CHRE x 

LET bS(ZI=CHRE 4 


FOR c=-1 TO i 
FOR d=-(c=@)} TO (c=0; STEP 


ee Oe Sn ee 
DSLOLOlOIS OM oll Gis Oo ona] 
( 
+ 
a] 
as 


FEA EY FD po 


TO Lite 


ee Se 


Ff feb fk fot fae ff 2) 0S foe: AE) 
AVS) 0) 1 1 
HOQsoonggg-1+ 


IF POINT (X#ce.yutds =G@ THEN ©& 


RD ARR Re OBIE OS RIERIRRIGEYORYORIORT RR) SUIT ed 


(10 $0 bs ee 


1 Gi 0) “4 J 
6O0qg006 
A 
m 
4 
+ 
nm 
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Timothy Leary 


“his program by Damian Steele creates 


umber of dramatic graphic displays to 
jJemonstrate convincingly (lif you still 
veeded convincing) how effective your 


somputer's graphics can be. 
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ae Was 
= 


iG PRPER = EGRDER i: INK 43: L 
ET D=1: LET €=4i1: LET F=6 LEFT X= 
O: LE ¥Ys=375 LET S=P- LET F=n- 
LET C=@: CVvVER 2 

e@ CLS : PRINT #e@:a7T 2 a 

2x TRIP Fr 
RESS ANY KEY IF BORED..." 
1@@ FOR s=* TO ¥y STEP 5 
218 IF A>=128 THEN GO To app 
422 IF A#2>=87 THEN GO SUB 22a 
g@ae PLOT &.5A GRAW fY¥s#i1.¢4571 -B, 
ene IF INKEY$i2°" THEN |@Dp To af 


450 GO SUE Fea 

S28 OUFR 7 

Si@ FOR A=2 To SS5 
a Pp) 


TAS IF ENKEySi3"" TH 

Bet 

SEG PLOT As BSG SS 

5308 NEXT A 

SSS IF 6=1 THEN GO TO saa 

S37 SG SUB Fag 

SaG FGR A= G ifs STEP s 

ast? TF INKEYSi:°“ THEN GO To ia 
2aeB 

SS@ PLOT @,A: pray 255.8 

S6@ NEXT A 

S65 GO Sie Fae 

D7@ EF Bis FHEN LST Fas sit Trt 
a5¢ 
anu? iF €=3 THEN ier fF=n- i Ti 
aa oe 

620 LET F=Fe4a- FF F<e=i FHEN LET 
S=1.4: LEFT B=8- ef To Sig 


658 GC SUB YEG: GO TO isan 
“B86 FOR A=i TO if: BEEP -2f7. 1A 
ND#3@:435: HEXT & 
S6Q RETURN 
18@9@ PAUSE &: CLs 
1@@1 L0np ** 
S588 S70F 
$996 PRINT FLASH 41:8F 36.16; "STO 
P THE TAPE: PRINT Ar 21,2; “PRES 
3S ANY KEY TO CONTINUE... 2°: PAUSE 
8: GO TG 3 
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Color Test 


This simple program by David Perry puts 
all of the computer's colors up on the 
screen so you can tune in your television 
for the best possible picture. 


i@ BORDER =: PAPER @: SRIGHT 2 
INUERSE @: QUER @: FLASH 8B: CL 
= 


ie 


Se LET i=-i- FOR 7=-@ Te si 
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Logic Gate Emulator 


This program, by Neville Predebon, shows 
you the result of having AND, NAND, OR or 
NOR gates in a circuit. Just follow the 
prompts. 


i REM “gsetes"™ 

5&5 REN © Predebon 18653 

F BORDER 6& 

4@ PRINT INE i:AT 2.35: "GATES" 
3 INK @:AT 126.6:"H Logic gate ut 
att Bu” 


42 INK @ 
45 PRINT AT 26,3: “press any ke 
yw ta continue’: PRUSE GS: CLS 
2B PRINT AF &S.,2; "Key the gate 
~* PRINT 
PRINT TAB Si: "AND = 1° 
3@ PRINT TARE 5; “NAND =* 


: NT : 
_S5 PRINT TAB 2; “Switch A - @@1 


82 PRINT TAB 2: “Switch B - O18 
65 IF INKEY¢="2" THEN GO Ta SS 
7B IF ce Ne ete THEN GO Ta 932 
7S IF INKEYS="“4"* THEN GQ Tea as 
Soe PRINT TAB 4; “Sutput —- : 
GO To ife 
65 pRIey TAB 4; “Gutput — 
GO To 1668 
3a PRINT TAB 4; “Gutput - 
Ga To 1iae 
QS FRINT TAS 4; "“Gutpet - BSS 

18@ INPUT INK 2; "Do you need an 
other run? “:ag 
LBS FF aBw=H"yes" OR |as="YES" THE 

N GO Te is 

3228 PRINT : PRINT INK 2;TRE 82;" 

Very welt": STOP 


267 


which 
own 


a different 
into your 


produces 
are five such sounds 


incorporate 


There 
can 


Graham White 
sound, 
programs. 


Each RANDOMIZE call in this brief program 
you 


Aural Assault 


by 


THEN PRINT AT 
RETURN 


THEN PRINT &T 
THEN PRINT AT 
THEN PRINT AT 


GATE": 


- 


é 


A4isS IF INKEYs="i" 
4; "AND" 


as@ IF INKEY$="e" 
435 PRINT 


Ss 
3,4 


MN - 


“EY *s 
ri 
Ped 
If) “ 
Pty 
msi 
ate 
fy 
“ef Ps 
Wh 
rot [FI 
wie] 
| 
Me 
afl * 
Po YU 
iN) It 
erry 
+s 
Wye 
“NW 


We MU et 


tC 


eel EV WU EL SY rd et 
Di | orcas i 
(TE 
Ge Gamay cn «ky 
SANITY sy 
a 
MICU 


b 


ISOs 
~ sf 


AY PD 
s 1% es) 
| 


“nil 
CQ RCW «8 
WCE oe fT sf ny 


3) 


I 


ee 


oY) 


~ sil 

PT ee 
his 
se 
Ts sm 
Ca a 
Le 
sto] MY 
(sc 
mips 6 
sul CY 
i ty 
Mit» 
TW 
Mm CY Ut 
ch sty 
wih) os 
«Sieh 
Wet i 
WN 
Oe ed 


— M E 


sf os 
are 
wf] os 
i ~& 
ah 4 
ri 
tof ore] ns 
soe} 
ACH SNS) 
~ iY 
Gan ~ 
“ oh) 
(yh ey 
Mati 
I Wa 
Cd 
wt 
pay 1] 
CY euch 
| 
vs 
Te) 


CY IY ss 


SUT CU PN CTY 
sry 
LY ey 


rd 


HA) stG) 


+38 


6a 6a 
iti ry 
td at UY 


CUCU RY ry ly 
Mae 


OE IC ce co 
WD 


2a 


UU) MU) AL 3 
Pe hl hd be Pe a 
bot Bet bol ee) ort 


ahiatiide 
ed ead ed Ne Ho 


ISHII IES) ASE ES 


seeettse tit 
CU Diss oseeed apel ena ere are] oe] 
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Rainbird 


Now you can see how your computer can mix 
its standard colors to produce up to 128 
different shades. 


Some programs which produce this effect 
use a graphics character with a checker— 
board pattern in order to produce a 
pattern of dots to mix the colors. This 
program allows for this option, as well as 
two others. You can see that horizontal 
Lines produce a color which is more steady 
on the screen than the checker-board 


pattern produces. 


2 FOR a=8 TG 7 STEP 2: FORE U 
SR “s"+a,BiN 223343332. SIRE ime 
‘at 4541,.B8IN B@RRBRAS. MEET = 

3 FOR s=e TO F STEP 2: PROKE U 
SR “b'43,Bi3 4635175. SEE ise 
“b"4542,B8IN BABABIGBS. MET = 

4 FOR a=e@ To 7 STEP 2: PORE 1 
SR “c'+a,BIN 13439888: PREF LAs 

3 3 


“4 . $32; NEXT 3 
6 PAPER +: INK 1: BORDER v.- LF 


16 PAPER &: INK 7: BORDER fw £ 
1S : PRINT AT i68.8;" @ z = 
3 4 5 & ‘T Peper” 


45 FQR c= Th 2 

2 PRINT AY 28.32; "brian 
- PRINT 86; “Press any rev 
ace” Far thé Henpu" 

25 FOR a=8 To 7: FOR b=8 TO 7 

30 BEEP .2@03,RND+s4n-GnR 

3m IF b=o THEN PRINT SF 242534 - 
be4;5;AT @,. 8; "30" 
40 IF ci=3 THEN PRINT BRIGHT _£ rg 
INK a: PREPER 6b: AT 22#2.84: 
[HF 22241.534505——" 


lit 
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#23 iF cri=2 

INK a; PSPE 
> ar a#2+i.b 

42 IF ct=3 
2 INK a; PREFE 


S=°SAT 32#241. bd: 


R b; ‘Br BF? bs: 


BST 


f2,bs4; "HE 


BRIRHT 3 


ee iF b= @ THEN PRINT SY 2asfa3. 


betia:AT @,8: "ink" 
sa NEXT b: NEXT 2 
F Steet, Sale THEN Go To & 
2@_ IF INKEY Ss: OSES NEXT fe - 


GO TG is 
60 GG TQ@ i56@ 


ECTRUM “; OQUER 4; 


Zi@ PRINT AT 2,13;" 


This : 
aemonstrates hew th stonsare 
iGht COLouUres OF tre 2K Spectr 
mH Can be Mixed to Produce up to 
128 different Shades." 

12s PRINT ““ SGmhe Pregrams whic 
Ah USE this @FFect ise SB GraAackai 
C character with a chessboard t 
yRPe Pattern GF dots te mix the 
colours, thisopiine $5 .prnwidaed 
but generatiua series oF horizon 
tal tines Wilt work better as 
penis way thestlight dot crawl eF 

i fed #) cet r 

exaggerates." Be eee oe 
isSG PRINT = 35..9: *HIyF AREY KEY 


3258 PRPER 7: INK 2: BORD : 
LS i PRINT S&T 4,43: THHERAP 40¢e 

160 PRINT AT 3,8; "2->Hoeriz 

Lines = Hit 5° OTB te be 
HSsboard Ppsittern Be Kee ar oO 
°O,"°S: Dashed Lines --—— a 
_ — = 

A778 PRINT AT 13,134; "Fhe co a 
CMbinatioan far earhSbae Gan na 
fead From the axes af the chart 
_It must be noted that the ink” 
and paper cetours ere mot @nter 
Changeabie, that gsfor exampie, 
BLUE ik om red ParPrer 75 @ a3 
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im 


i 


* _ 

ferent cgtour te red 308 a bi Line of Best Fit 
150 PRINT SG;AT @,1; INK 1; “The 
routines for ps ESTE See ite Thi ful uttiit ‘+t b 
graphics are in lines 2-4- is useful utility program, written by 

ef ere ee ot tb = Tr 4a : : 
198, IF ENKEY St > EM BE Fe Neal Cavalier-Smith, allows you to enter a 
290 LET afSINkevs$ oases THEN BOD number of points. The computer will then 
263 2F ase a> BR Sete plot a line of best fit for these points, 
‘FO 299 A A ‘ A 
210 LET ct=VAL 2$: 60 TO 18 and give the equation of this Line. You 


can see it in action in this sample run: 


Equation af best Fitting tine ist 


Y=sSeiD 
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ion af best Fitting tine is 


| 160 


This is the Listing for your own 'Lline of 
best fit': 


28 LET a=8: LET b=@: LET =e 
2 LET K=@: INK 7 > PAPER @ 
SQ CLS :; BORDER @ 

42 INPUT "How many POINTS T IN 
SQ DIM xX th) 

6e@ DOIH ytnl 


782 FOR ¢=3 TOG 
fe INPUT fc} ,WU tC? 
7o FPLOT cz ,! ci 
S@ LET 3 tx OC 

sty tc 


b=ben 
—-Blxe#(utti—-b 
3 


tm 
lor 
Ned ee 


a 

w 

“xO we eo3 
n 
4 


res Hi een 
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+ 
7 
{ 
3 
b 
3 
pA 
it 
c 
oo] 
b 
a 
Pa 
1 
a 
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DRAW 189,08: PRINT 
DRAW @.180@: PRINTF 


Gh 


PRINT AY 8,8; "Equatio < 
fattans tine Sees Me ee 
m : TT 2,8; sain" ital INT {mzxie 
1/20Q; "K+"; INT (ke202. 3 
FOR c-1 TO 1096 SERIE AE. 
ee gee oe 

d<¢3@@ THEN PL c 
24@ NEXT ¢ FE S20 
2se@ sTrop 


Wh) + Me ty 
Ws Rag 


Ngue 


Equation of best Fitting line 
¥Y=0@.98G=421 


is 


1e0G 


~~ 
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, 
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OY Satna ehewssienananseumqenregssenumrereseracee 
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1] 
8) 


275 


Hall of Fame 


This can be used in any arcade type game. 
As an example, type in a number above 100, 
then your name, and in a second or so the 
computer will calculate and print up the 
new Hall of Fame. This program was created 
by David Perry. 


1 REM HALI OF FAME 

2 REM (C) DAVID FERRY 1985 
3 REM 

4 REM NUM=NUMBER OF SCORES 
3 REM 

& REM 


© BORDER ©: FAPER O: INK 7: B 
RIGHT 1: CLS 

10 LET NUM=10: DIM N(NUM+1): D 
IM NB&CNUM+1.8): FOR N=1 TO NUM: 
LET N(N)=1100-(N*100): LET N®(N) 
="SPESTRUM': NEXT N 

15 CLS +: INFUT "FOR AN EXAMPLE 
ENTER YOUR SCORE stun 
REs"sSC 

[QO IF SC<=N(10) THEN GO TO 20 
oO 

=O LET NUM=11: IF SCS=N¢(NUM) T 
HEN IMPUT “ENTER 8 INITALS! "sF 
¢: IF LEN F#28 THEN GO TO 29 

35 PRINT AT 7,0; FLASH 1: BRIG 
HT O: INK 7; PAPER 23"THIS WILL 
ONLY TAKE @& FEW SECS!" 

40 IF SC>=N(NUM) THEN LET N(N 
WM) =SC: LET N& ONLIM) =P 
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SQ FOR A=1 TO (NUM-1): LET Re= 
N®(A): LET CH=N¢ (AL): LET BeNca 
): LET C=N(A+1): IF B<C THEN LE 
TNCA)#C: LET NCAtL)=B: LET mca 
d=C¢: LET N¢(A+1)=BS 

60 NEXT A: FOR N=1 TO NUM<1: 7 
F N(N)<N(N+1) THEN GO TO 50 

70 NEXT N 

8O CLS 

90 PRINT AT 2.4:°H ALL OF 

FAME tH 

100 PRINT AT 3,4; "===s==ss=s<=<= 
110 FOR N=1 TO NUM-i: PRINT AT 
N+S.73 INE Gi" Cs TNE Dens INE 
6:") "SAT N+5,12: INK 7:N(N): PRI 
NT AT N+ .i7%: INE SN ON) s NEXT 

120 PLOT 0.0: DRAW 255.0: pRAW 

O,175: DRAW =-255,0: DRAW O.~175: 
PRINT AT 17,8; PAPER 2: INK 72" 
PRESS ANY KEY! “s LET Teno . 
vee LET I=I+i: IF I37 THEN LET 

r yo) 

140 PRINT AT 2.4; INK I:"HAL 

L OF FAME! 

150 BEEF .01,1#7: FAUSE 2: IF I 

NKEY$="" THEN GO TO 120 
160 GO TO 15 
ZOO PRINT AT 10.4:"SORRY SCORE 


TO LOwWrree 


“10 FRINT AT 123,7:" PRESS A KEY 


220 PAUSE ©: RUN 
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Spec File 


This outstanding database program comes 
from Michael Briggs. It stores data in a 
very compact way, ensuring maximum use is 
made of the memory. 


When the program is run, you'Ll be asked 
to enter your name, the file title, field 
titles and the like. Note that an entry 
cannot be Longer than 256 characters, and 
a field must be 28 characters or Less. 


A menu will be displayed, with the 
following options: 


1/ BEGIN NEW FILE: This runs’ the 
program, clearing all data 


2/ ENTER RECORD(S): This will ask you 
to enter a record, field by field. It 
will then sort the record into alpha- 
betical order with the rest of the 
file. If you make a mistake when 
entering any field, simply enter "Q" to 
return to the menu 


3/ SEARCH: This searches through the 
file for either a string of letters or 
a numbered record 


4/ PRINT ALL RECORDS: This prints the 


first field of all files and allocates 
8 specific entry number to them 
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5/ SAVE FILE: This saves the file under 
the title of the file. If the title is 
an invalid file name, the word "index" 
will be used 


6/ STATUS: This will tell you various 
facts about the state of the program, 
such as much space is Left in the file, 
how many entries there are, and _ how 
Long the computer has been running the 
file 


You'LL find that even though this sounds 
complex when you're reading about it, 
you'LL find it is really quite simple to 
run the program. 


: BEM MICHAEL BRIGGS 
2 POKE 23409,40; BORDER Ge: IS 
: PAPER 7: CLS =: DIM Z2#(2F5000 
§: LET Z=<1e LET £O=6 
3 INPUT "FORENAME... ":Ct 
9 INPUT "SURNAME... "2: St 
10 TNPUT "TITLE OF PILE "2TS 
2O INPUT "MUMBEFR OF FIELDS "35 
ZO DIM AS(F,20):; FOR A=1 TO F: 
PRINT "ENTER TITLE FOR FIELD "; 
Qs INPUT BS: LET AS(A,2 TO )=BS: 
LET @%(4,1)=CHRS LEN Bt: PRINT 
Ne—"s INK SsbB: PRINT : NEXT A 
70 PAUSE Sa 
{O00 FORE 23609.40; BORDER 6: CL 
GS s INE O: PLOT 0,0: DRAW SS5.C:% 
QRAW O.175: DRAW -255.0: DRAW 0 


»=17S:. SNR = 


279 


110 PRINT INt Os BRIGHT 1:AT 1 
siS-LEN T$/2:T#:" MENU" 

120 PRINT AT 2,2:" NO 1.BEGIN 
NEW FES" 

120 PRINT AT S,2:" NO 2. ENTER 
NEW RECORD(S). " 

£40 PRINT AT 7.33" WO =. SEARCH 
RECORDS..." 

isO PRINT AT ©,2:" NO 4.FRINT 
ALL, RECORDS..." 

260 PRINT AT 11,2:" NO 5.SAVE 
Spe 

265 FRINT AT 42,2:" MNO 6.FILE 
STATUE." 

270 PRINT INK 2:AT 15,92:3"8 MIC 
HAEL BRIGGS" 

1BO PRINT INE i:AT 17,11-(LEN 


GCS+LEN SHI /2e"F ILE FOR "sey" “2 
5S 


LS INPUT "GHOIGCE..."2C 
195 CLS 
196 TINK. 2 
2O0 IF @<C AND C<=S THEN GO Ta 
T#KLO0DG 
[in GG TO 1606 
1000 PRINT AT 19,2: "ARE YOU SURE 
Me Cea ae 
1010 INFUT Y¥¢ 
1920 IF YSss7H"Y¥" OR veCtay" OT 
HEN FUN 
{920 GO TG 100 
2000 INK 2: FOR As=1 TOF 
2010 PRINT AT Axk2-1,135-(CODE Ag( 
A.1)/2):"ENTER "SATCA,2 TO } 
2020 NEXT A 
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SO21 PRINT AT 21,03 INK 1: "ENTER 
~Q™ TO RETURN TO MENU." 

ZO0ZQ LET E¢='"'" 

2940 FOR A=) TO F 

2950 PRINT AT AkX2-1,12-(CODE At ( 

Agel) 42)s "ENTER "3 FLASH 1: AS CA. 2 
TQ 1+CODE A¢‘(A)) 

2060 INFUT FS 

2061 IF Fe="Q" THEN GO TO 100 
2070 LET ES=ES+CHRé LEN Fat+re 

2080 PRINT AT Ak2-1,12-(CODE AS ( 

8&.1)/2); "ENTER “1A8¢CA, S TO 1+C0P) 

E At (A)} 

209 PRINT INE @:AT AXx2,16—-LEN 

F/see Fs 

Z100 NEXT A 

2110 LET Xi=is FOR A=1 TO CO: LE 

T X#=28(X1+2 TO X1i+CODE ZH (X1+1) 

+1) 

ZLi= IF X#sEs«2 TO > THEN GO TO 
2400 

2120 LET X1=X1+CODE Z¢#(X1) 

2125 NEXT 4 

2126 LET ES=CHRS (LEN ES+1)+E$: 

LET Z28(2 TO Z+LEM ES*}\=ER 

Zizi LET Z=Z2+LEN ES 

21490 LET CO=CO+t: CLS : GO TQ 20 

GO 

2400 LET ES=CHRS (LEN E¢+1)+E¢ 
24i0 LET Z$(X1+LEN E# TO Z+LEN & 

#)=Z2¢¢X1 TO Z) 

2420 LET Z#(X1 TO X1+LEN Et—-1)=& 

x 

2420 GO TO 2121 

2999 REM SEARCH ROUTINE 
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2000 PRINT TAB i1:"SEARCH MODE": 
AT 2,0: "ENTER..."8AT 3.0:" *N* 4 
F ENTERING RECORD NUMBER. vey, F 
F ENTERING CHARS ONLY.": INPUT " 
KEYWORD" :k¢ 

S904 LET MS=" "s IF K#¢1)="N" TH 
EN LET M#ek¢(1)2 LET Kg=ke(2 TR 


ZOGS PRINT TAB 8: "KEVYWORD="sk¢ 
SO0% LET RET= 040 

2010 LET X=i: FOR A=1 To co 

SOLS LET X1=X: LET Vtezecx To cc 
ODE Z8¢(X}+X-1))4" ": TE megane 7 
HEN 60 TO =2zoo 

=O16 FOR J=1 TO LEN V$-LEN K¢ 
SO20 IF V#(I TO J-1+lLEN e@)=Ke T 
HEN GO TO F200 

S030 NMEXT J 

2040 LET X=X1+LEN V$-i: NEXT @ 
SQO3O PRINT *?°? INK O: "PRESS @ KE 
Y's PAUSE @: GO TO 109 

S200 FRINT ** INK 4: "ENTRY NGL... 
“sAs LET X2=X1: LET Xi=Xi+i: FOR 
[=1 TOF 

3210 PRINT INE S:AS(K,2 TO CODE 
ASC +12"... %: PRINT INE 1:78 

B ZS-CODE Z$i(X1)3Z2$(X1i+1 TO xX14+C 

MODE (Z%¢X1))3 

F220 LET X1=X1i+1+CODE 2¢(Xx1) 

S225 NEXT i 

2240 LET X1=X2: GO TO RET 

S300 IF A<>VAL ES THEN GO TO =O 

4c) 

2210 LET RET==050 

soe GO TO 2200 
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4000 PRINT "ANY KEY WILL STOF TH 

EF SCROLLING DISPLGY UNTIL KEY IS 
RELEASED. " 

4oo5 FAUSE © 

4010 FRINT AT 18,16-LEN T¢/2: IN 

KS 2s TH 

4Qo20 INF i: PRINT 

40O30 FRINT 

4040 LET X=1: FOR A=1i1 TO CO 

AQ049 PRINT AT 21,02 PORE 23692. - 

1 

4050 PRINT "“OoMO":AT 21,4-LEN (S 

TRH AsAr"s"s7ZH8(X+2 TO X+14+00DE 

(2$(X+1))) 

4os0O LET X=xX+(CODE ZH CX) ) 

4045 IF INKEY$<2"" THEN GO TO 4 

OSE 

4070 NEXT A 

407 PRINT *7 "PRESS ANY EKEY TO R 

ETURN TO MENU." 

4080 FAUSE O: GO TO 10% 

SOOO PRINT "I SHALL SAVE THE FIL. 

—E UNDER THE NAME OF" 
PRINT AT 10,146-LEM T#/2: FLASH 
14S 

£005 IF Té="" OR LEN TS210 THEN 
PRINT AT 10,13" IN 

DEX ". SAVE "INDEX" 

LINE 100: GO TO 190 

£O10 SAVE T# LINE 1900 

Sso2a GO Ta 100 

6000 PLOT 0,0: DRAW 255.0: DRAW 

O,175: DRAW -2S5S.0: DRAW O,-175: 

6010 PRINT AT 1,12-(LEN T#)/2; B 

RIGHT 1: INK 2: T4#:3" STATUS" 
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6020 FRINT AT 2,23 "COMPUTER ON T 
IME i": INT ((¢(PEEK 226724+2546ePR5 

Eko BEI67=2)+65S5Z46KPEEK 22674) /50): 
" SECS“ 

6030 FRINT AT 5S,10-(LEN S$+LEN C 

$)/22 "FILE FOR ":C#s" "se S¢ 

6040 PRINT AT 7,8; "NO.0F RECORDS 
eee 

S050 PRINT AT 9,2: "CHARACTER SFA 

TE LEFT :":35000-7 

6060 FRINT AT 11,43 "CHARACTERS 

M FILE gs 

6070 FRINT AT 13.2: "FPROGRAM:-8 M 
ICHAEL BRIGEGE" 

6075 PRINT AT 20,5: "FRESS ANY KE 

Y FOR MENU" 

6060 FRINT AT 2,2: "COMPUTER ON T 


col 


IME i "sINT ((CCPEEK 234672+256*FE 


Ek 25672)+655S56¥PEEK 23674)/50): 
“ SEES* 

&085 IF INKEY¢<>"" THEN GO TO & 
100 

£099 GO TQ 6080 

6100 60 TO 100 
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STRUCTURED 
PROGRAMMING 
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Sketching an outline 


Many times I've written articles and 
chapters in books which are_ supposedly 
going to improve the programming skill of 
those who read them. But every time I 
produce such a list of ‘things you really 
should be doing when you program', or 
explain the material to someone, I _ am 
reminded of an old story about a farmer. 


He was approached by a young man selling 
correspondence courses in ‘Effective 
Farming'. "Don't you see," the young 
salesman said as part of his pitch, "that 
if you take this course you'LL know so 
much more about farming?". The farmer 
replied "I don't even farm now as good as 
I know how." 


So it goes, I suggest, for advice on 
programming. I know full well that I do 
not "program as good as I know how". Many 
times I break all the rules, wading 
straight into coding a complex program 
without even a thought for the ideas of 
"structured programming’. 


So I suggest you keep in mind, when 
reading this appendix, that I do not 
really belive that you — or anyone else — 
is really going to take the ideas here as 
rules which must be obeyed, come hell or 
high water. The best way to approach this, 
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and any other material in a similar vein 
which you come across, is to read it 
carefully, and make your own assessment on 
each suggestion given. Then, just apply 
the ideas which seem most sound to you, 


The basic idea I'm outlining in this 
appendix is that of approaching structured 
programming by ‘sketching an outline’, 


The idea is simple, but very valuable in 
order to help you write complicated and 
involved programs, such as many of those 
in this book, Of course, you may well be 
already creating very complex programs 
without using anything Like the idea I'm 
about to outline. Even if you are, I 
suggest you think carefully about these 
ideas, so that you can see that they may 
make your job easier, 


The fundamental idea of structured 
programming Lies hidden in the phrase ‘top 
down programming'. This suggests that you 
Start the process of programming by first 
stating inwords the broad aim of the 
program you are about to write. You follow 
this up by writing a series of notes -—- 
each of which will eventually be a 
subroutine — which cover each of the main 
tasks which the computer will carry out. 


To clarify this Last paragraph, I'LL give 
you a concrete example. Here are the steps 
you could follow when trying to write a 
Noughts and Crosses program. (Note that 
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‘structured programming' produces Listings 
which are much Longer than might otherwise 
be the case. However, this greater Length 
is more than offset by the fact that 
Programs built up in this way are very 
simple to debug and improve, and their 
structure can be readily understood by 
other programmers. You may not be able to 
make such clsims with confidence about 
some of your current programs.) 


SET UP INITIAL BOARD 
COMPUTER MOVE 
(A) CHECK IF MIDDLE SQUARE EMPTY, 
IF NOT MOVE THERE 
(B) CHECK IF THERE IS A COMPUTER 
WINNING MOVE, IF SO MAKE IT 
(C) CHECK IF HUMAN WILL WIN ON NEXT 
MOVE, IF SO BLOCK 
(D) IF NO MOVE MADE, CHECK TO SEE 
IF A RANDOM MOVE CAN BE MADE, IF SO 
MAKE IT, IF NOT DECLARE A DRAW 
PRINT BOARD 
ACCEPT PLAYER MOVE 
PRINT BOARD 
CHECK IF PLAYER HAS WON, IF SO STOP 
GOTO 'COMPUTER MOVE' 


As you'Ll see if you take a few moments to 
study this sketched outline, you can tell 
exactly which steps the computer will 
follow; the decisions it will be called to 
make; and the alternative results of those 
decisions, 
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You have already completed the first step 
towards writing a Noughts and Crosses 
program. You'll see, by the way, that it 
doesn't matter et all if you do not yet 
know how you are going to get your 
computer to carry out the necessary steps. 
ALL that matters is that you know that the 
steps must, in some fashion, be executed 
in due course, 


The second step in the process consists of 
turning the sketched outline into a series 
of subroutine calls. In languages which 
are more structured than the BASIC you 
have on your computer (such as the BASIC 
provided on the BBC Micro, or Pascal) it 
is relatively easy to call a number of 
subroutines within an endless Loop, with a 
Structure Like DO/WHILE or REPEAT/UNTIL. 
These allow you to repeat a series of 
Program steps indefinitely until a certain 
condition is satisfied, or the state of a 
pointer or flag changes. 


In the BASIC we have here, however, we 
have to be content with the humble, and 
much-maligned GO TO. (Much of the reaction 
against GO TO, which many "serious 
programmers' see as the greatest insult to 
the art of true programming ever 
developed, came from early and relatively 
primitive versions of BASIC, in which you 
can only follow an IF/THEN with a GO TO, 
This meant the program leapt all over the 
place, leading to 'spaghetti code’ which 
was horrendously difficult to interpret.) 
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The second stage is to turn our’ sketched 
outline into a series of subroutine calls, 
endlessly cycled by a GO TO as follows: 


10 REM NOUGHTS AND CROSSES 

20 GOSUB 9000:REM INITIALISE 

30 GOSUB 1000:REM COMPUTER MOVE 

40 GOSUB 8000:REM PRINT BOARD 

50 GOSUB 2000:REM ACCEPT PLAYER MOVE 

60 GOSUB 8000:REM PRINT BOARD 

70 IF human has not won AND computer 
has not won THEN GO TO 30 

BO PRINT "CONGRATULATIONS" 


Now, as you can see, we have the 
'framework' for a workable Noughts' and 
Crosses program, even though we do not yet 
have a clue as to how the program will 
actually work. We can now set about 
writing the program from first principles. 


There are two further advantages of this 
‘outline’ approach. If there is something 
we cannot, at this stage, actually program 
(like the basis upon which the computer 
finds out who has won) we can simply put 
in a PHINT statement within the subroutine 
Like PRINT "CHECKING FOR WIN" and continue 
to use the program, as we work on it, 
Then, each time the computer should be 
checking for awin, it will print up 
CHECKING FOR WIN. ThiS means you can 
continue working on the program, without 
being needlessly held up on a minor 
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subroutine which you cannot, for the 
moment, solve. 


The second advantage comes towards the end 
of the program development stage, the 
debugging stage. I slways find this’ the 
most frustrating, and in many ways,’ the 
Least rewarding aspect of programming. 
Although I can often get a program working 
reasonably well fairly quickly (although 
my first chess in BASIC too nearly six 
months), to get the program from ‘working 
reasonably welLl' to ‘performing without 
faults under all conditions’ can take as 
long as it took to get the first version 
even working at all. However, when you set 
up the program in the way described in 
this section, you'll see that the 
debugging stage can be greatly simplified. 


For example, you may find in your Noughts 
and Crosses program that the computer 
tends to ignore the bottom right’ hand 
corner, when a move into this position 
would enable it to win, or to block a win 
from the human. From the ‘subroutine Loop’ 
we set up before, we know the computer's 
move must be made somewhere between’ lines 
1000 and 1999. This immediately nerrows 
down the search. If you've been clever, 
and have made each subroutine e series of 
further subroutine, each constructed in a 
similar way to our major subroutine, it 
would be even easier to track down the 
bug. 


292 


Let's look at this idea - making each 
subroutine a series of further subroutines 
-— a Little more closely. We'LL look at the 
subroutine starting at Line 1000, the one 
in which the computer actually makes its 
move, as this is the most important [and 
difficult to program) of all those in this 
game. 


The subroutine could begin as follows: 


2000 REM COMPUTER MOVE 

2010 LET MOVE=0:REM IF THIS BECOMES 1 A 
VALID MOVE HAS BEEN FOUND 

2020 GOSUB 2200:REM CHECK IF MIDDLE 
SQUARE IS EMPTY 

2030 IF MOVE=1 THEN RETURN 

2040 GOSUB 2400:REM CHECK IF A POSSIBLE 
WINNING MOVE EXISTS 

2050 IF MOVE=1 THEN RETURN 

2060 GOSUB 2600:REM CHECK IF A POSSIBLE 
HUMAN WIN CAN BE BLOCKED 

2070 IF MOVE=1 THEN RETURN 

2080 GOSUB 2800:REM CHECK IF ANY MOVE AT 
ALL CAN BE MADE 

2090 IF MOVE=1 THEN RETURN 

2100 REM A RETURN WITH MOVE=0 MEANS NO 
FURTHER MOVES ARE POSSIBLE 

2110 RETURN 


As I ssid earlier, programs constructed 
using the ‘endless Loop of subroutines' 
coupled with ‘subroutines within 
subroutines' make Listings which may be 
far Longer than usual. However, there is 
usually Little need to worry about running 
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out of memory [as was the case on the ZX81 
and the T/S 1000 when counting bytes 
became the dominant feature of our 
programming Lives). The extra typing 
involved in producing the Longer Listings 
will be amply repaid by the extra clarity 
your programs attain, and the much shorter 
time it will take to produce a debugged 
masterpiece of which you can be proud, 


You'll find if you take the trouble to 
Start with a 'sketchéd outline', the whole 
process of constructing a major program is 
much, much simpler than might otherwise be 
the case. You'LL also find that the time 
involved will be much more constructively 
spent that it would have been if you had 
just waded into the programming without 
taking the time to do your sketching 
first. 


Ignore the old farmer, and try now to 
program ‘as good as you know how!. 
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